Excel - Error 1004.No se puede obtener la propiedad LookUp de la Clase WorksheetFunction

Dim valorbuscado As String

Private Sub BtnAceptar_Click()

valorbuscado = FrmBuscar.BoxValorBuscado.Value

'MsgBox (valorbuscado)

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Click()

MsgBox (valorbuscado)

Dim hoja As Worksheet

Dim nhoja As Integer

Dim numerohojas As Integer

Dim a As Variant

Dim rango As Variant

Dim valores As String

numerohojas = Sheets.Count

For nhoja = 1 To numerohojas

    nombre = Worksheets(nhoja).name

    Set rango = Worksheets(nhoja).Range("A1:A1048576")

    valores = Application.WorksheetFunction.Lookup(valorbuscado, rango)

    If valores = "" Then

        MsgBox ("No Encontrado")

    Else

        MsgBox ("Se encontró en hoja" & nombre)

        ListBox1.AddItem nombre

    End If

    'valores = ""

Next nhoja

rango.Select

End Sub