Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [inp].Address Then
[curdate].Value = Format(Now(), "Short Date"
End If
End Sub
Please note that this routine uses "range names" - "inp" assigned to cell A3, and "curdate" assigned to A11.
The use of range names is HIGHLY recommended (with all VBA), as it means any future changes (insertion/deletion of rows/columns, moving data, etc) won't require modification of the code.
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.