Marcial C. C. respondió:
Cambia el nombre de tu textbox y del combobox, y utiliza el evento change del combo: Private Sub ComboBox1_Change() TextBox1.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("D:H"), 5, 0) End Sub Si te ha valido la respuesta.