Your lookup range is only one dimension, how can return the 2nd column
from a single-column range?

--JP

On Aug 13, 2:23*pm, R Tanner wrote:
I guess I didn't have to give you the whole sub...this should suffice
and make it easier on the eyes...

Test = ActiveCell.Offset(1, 0).Value

For i = 1 To NUMENTRIES
* * Set Mydate = ActiveCell
* * Mydate.Value = Application.WorksheetFunction.VLookup(Test,
Range("E53:E59"), 2)
* * Mydate.Offset(0, 1).Select
Next i

again, it is something wrong with the 'Test' variable in the code...