Sub or Function not defined

Na hora de eu fazer o passo a passo aparece a mensagem "Sub or function not defined". Já olhei o código inteiro e não consegui achar o erro. Alguem pode me ajudar.

Private Sub UserForm_Activate()
    Dim iContador As Integer

    iContador = 2

    cmbTipoVeiculo.AddItem ""

    Do While Sheets("Controle de Entregas").Range("G" & iContador) <> vbNullString
        If Not fnVerificaVeiculoNaLista(Sgeets("Controle de Entregas").Range("G" & iContador)) Then
            cmbTipoVeiculo.AddItem Sheets("Controle de Entregas").Range("G" & iContador)
        End If

        iContador = iContador + 1
    Loop
End Sub

Function fnVerificaVeiculoNaLista(pTipoDeVeiculo As String) As Boolean

    Dim iContador As Integer

    fnVerificaVeiculoNaLista = False

     If cmbTipoVeiculo.ListCount <> 0 Then

        For iContador = 0 To cmbTipoVeiculo.ListCount - 1
            If cmbTipoVeiculo.List(iContador) = pTipoDeVeiculo Then
                fnVerificaVeiculoNaLista = True
            End If
        Next

     End If


End Function