Ayuda para calendario Macros

[Jonacz]

Hola, Estoy desarrollando un calendario con Macros el cual pueda extraer las fechas de una tabla previamente definida, el problema es que cuando trato de correr la primera parte del programa el cual es solo buscar la fecha me lanza el error de:  "Unable to get the VLookup property of the WorksheetFunction class". Ya revise el codigo he intente de otras formas pero no encuentro solucion. El programa se enceuntra dentro de un modulo. Agradeceria mucho una mano.

Sub calender()

Dim Dat As String
Dat = Application.WorksheetFunction.VLookup(Sheet1.Range("B42"), Sheet2.Range("B3:AK3"), 3, False)
MsgBox Dat

End Sub

 

[Haplox]

@Jonacz , prueba con lo siguiente a ver si es el problema

Dat = Application.WorksheetFunction.VLookup(Sheets(1).Range("B42"), Sheets(2.)Range("B3:AK3"), 3, False) 

 

[Jonacz]

Gracias, pero ahora me marca "error 424 Object required". Ya intente introducirlo en una celda, pero tampoco.

[Haplox]

Otra prueba @Jonacz

Dat = Application.WorksheetFunction.VLookup(Sheets(1).Range("B42"), Sheets(2).Range("B3:AK3"), 3, False)