Hi,

I need your help!!!
I'm using MS Office Pro 2007 and in a VBA procedure I use a
Application.WorksheetFunction.VLookup.... that doesn't work - Just returns
error no 400. Am I missing any library?

Thanks.
Cabaco

Here is the procedu

Sub ListSchedule()
'DEFINITIONS:
Dim sShtData, sShtLayout As Worksheet
Dim MyXlFunc As WorksheetFunction
Dim lMes, lAno, lFunc1, lFunc9, lCountr As Long
Dim rEmployees, rMonthTable, rWeekdays As Range
Dim rMes, rAno, rPeriod As Range
Dim rEmployeeName, rEmployeeNo, rEmployeeTest As Range
'DATA:
Set MyXlFunc = Application.WorksheetFunction
Set sShtData = Application.Worksheets("Funcion")
Set sShtLayout = Application.Worksheets("FichaPonto")
Set rEmployees = sShtData.Range("A1").CurrentRegion
Set rMonthTable = sShtLayout.Range("X7:Y19")
Set rWeekdays = sShtLayout.Range("X21:AA28")
Set rMes = sShtLayout.Range("V3")
Set rAno = sShtLayout.Range("V4")
Set rPeriod = sShtLayout.Range("V2")
Set rEmployeeName = sShtLayout.Range("E4")
Set rEmployeeNo = sShtLayout.Range("P4")
Set rEmployeeTest = sShtLayout.Range("U3")
lMes = Month(Date)
lAno = Year(Date)
lCountr = 1
'RUN:
lMes = InputBox("Mês:", "Indicar...", Month(Date))
lAno = InputBox("Ano:", "Indicar...", Year(Date))
lFunc1 = InputBox("Do funcionário:", "Parametros de impressão...")
lFunc9 = InputBox("Ao funcionário:", "Parametros de impressão...")
rMes.Value = lMes
rAno.Value = lAno
For lCountr = lFunc1 To lFunc9 Step 1
rEmployeeNo.Value = lCountr
rEmployeeTest.Value = MyXlFunc.VLookup(lCountr, rEmployees, 2, False)
If rEmployeeTest.Value = 1 Then
sShtLayout.PrintOut
Else
End If
Next
'CLEAN:
Set sShtData = Nothing
Set sShtLayout = Nothing
Set rEmployees = Nothing
Set rMonths = Nothing
Set rWeekdays = Nothing
Set rMes = Nothing
Set rAno = Nothing
Set rPeriod = Nothing
Set MyXlFunc = Nothing
lMes = 0
lAno = 0
lFunc1 = 0
lFunc9 = 0
lCountr = 0
End Sub