Olá, tudo bem! Não chega a ser exatamente uma dúvida, mas algo que acabei tropeçando aqui acompanhando a aula :)
Percebi que na minha versão de excel ao executar a função de busca de itens da combo a seguinte mensagem era disparada "Erro em tempo de execução: Tipos incopatíveis". Aparentemente, a instrução Range não aceita informar como concatenação um parametro inteiro (Integer) na cordenada de pesquisa. O jeito foi converter o inteiro para string mesmo com uma função que o proprio excel disponibiliza: Cstr().
Meu código ficou assim:
Private Sub UserForm_Activate()
Dim iContador As Integer
iContador = 2
Do While Sheets("Controle de Entregas").Range("G" + CStr(iContador)) <> ""
If Not fn_VerficaVeiculoLista(Sheets("Controle de Entregas").Range("G" + CStr(iContador))) Then
cmbTipoVeiculo.AddItem (Sheets("Controle de Entregas").Range("G" + CStr(iContador)))
End If
iContador = iContador + 1
Loop
End Sub
Pode parecer bobinho, mas derrepende já dá uma ajudinha para alguém que cair na mesma situação.
Abs.