Hi everybody, thanks for the cooperation.
I now have some progress, the error value is 2042,
on the line begins with LUResults = (see below)
but it does not afect the flow of the macro.
Except that later on I have the line
MsgBox LUResults there the macro stucks and the error note is
type mismatch error no 13
I have excel2000 and windows xp
The entire macro is
Sub VLU()
Dim Taarich As Date ' Taarich is Date in Hebrew
Dim LUResults As Variant
Dim LupTable As Range
Set LupTable = Workbooks("book2.xls").Sheets("sheet1").Range("Tab le01")
Taarich = ActiveCell.Offset(0, -1).Value
LUResults = Application.VLookup(Taarich, LupTable, 3, True)
MsgBox LUResults
End Sub

Any mor help, please.........
rachel
"Niek Otten" wrote:

Hi Rachel,

Worked OK for me in Excel 2003

Sorry!

--
Kind regards,

Niek Otten

"Rachel" wrote in message
...
Dear Niek,
this does not work, I get this error result that does not really help
"Object does not support this property or methos"
can you figuer it out?
Thanks in advance
rachel

"Niek Otten" wrote:

Hi Rachel,

application.WorksheetFunction.VLookup(workbooks("b ook1").worksheets("sheet1").range("a1"),workbooks( "book2").worksheets("sheet1").range("table01") ,2)

--
Kind regards,

Niek Otten

"Rachel" wrote in message
...
I want to get the vlookup results to a variable, where that table data
is
in
book2
and the key search is in book1 somthing like
Vlook = application.worksheet.vlookup(book1!sheet1[a1],
book2!sheet1[table01], 2)
this does not work. Both worbooks are in the same directory, and I use
excel
2000
and windoew xp
thanks rachel