Would this work?Dim NewRowDim NewDateNewRow = ActiveCell.RowNewDate = Now()NewDate = Format(NewDate, "MMdd")Selection.Formula = "=VLOOKUP(D" & NewRow & ",RMRegArray" & NewDate &",8,FALSE)"