Boa tarde,
Não consigo testar esse código a linha que começa no DO fica amarela. Por que está acontecendo isso. Aparece um campo para Depurar. E o que significa Depurar?
Private Sub UserForm_Activate()
Dim icontador As Integer
Do While Sheets("Controle de Entregas").Range("G" & icontador) <> vbNullString
If Not fnVerificarVeiculonaLista("Caminhão Baú") Then
cmbtipoveiculo.AddItem "Caminhão Frigorífico"
End If
Loop
End Sub