Hi everyone,I am trying to use VLookup in my VBA code:Application.VLookup(Dates(i), Worksheets("XMKT").Range(Cells(8, 33), Cells(1007, 35), 3), but it gives me the following error message:Run-time Error '13': Type mismatch What am I doing wrong?Please help.Artour

I think you have a lack of ")" on your function

Thanks for your reply. Unfortunately, the problem still remains....

I test your fonction but it run without problems.Can you show your VBA function to look at.

1. Is the Dates() array dimensioned as a date? Is the Lookup column 33 (AG) a list of dates as well? If so, Excel will use the Long Integer representation. Coercing the lookup value to long worked for me...x = Application.VLookup(CLng(Dates(i)), Worksheets("XMKT").Range(Cells(8, 33), Cells(1007, 35)), 3)2. Your code will likely fail if the active sheet is not "XMKT" because the Cells(x,y) references are not fully qualified. Do something like the following to make it more robust...'''''''''''''''''''''''''''''''''''''''Sub test()Dim x, i, Dates(1 To 1) As DateDim TestRng As RangeWith ThisWorkbook With .Worksheets("XMKT") Set TestRng = .Range(.Cells(8, 33), .Cells(1007, 35)) End WithEnd Withi = 1Dates(1) = DateSerial(2006, 1, 15)x = Application.VLookup(CLng(Dates(i)), TestRng, 3)MsgBox xEnd Sub'''''''''''''''''''''''''''''''''''''''''''