Hadn't spotted that one Bob<g

Regards

Roger Govier


Bob Phillips wrote:
Thanks Roger, but there is a also a logic error. Should be

Dim iLastRow as Long

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
If iLastRow = 1 And Cells(iLastRow,"A").Value = "" Then
'do nothing
Else
iLastRow = iLastRow + 1
End If
Cells(iLastRow,"A").Value = Format(Date,"dd mmm yyyy")