Hi
Your code was OK it only needs the following change :-)
Sub Macro3()
Do Until IsEmpty(ActiveCell.Value)
'runs down until it hits a blank cell
If ActiveCell.FormulaR1C1 = "#N/A" Then
ActiveCell.FormulaR1C1 = "=TODAY()"
End If
ActiveCell.Offset(1, 0).Range("A1").Select...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.