Inefficient?
Thanks!
"Toppers" wrote in message
...
This?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 1 And Target.Row 4 Then
Cells(Target.Row, 1).Value = Now
End If
End Sub
"Steph" wrote:
Is there a better way to write this??
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 1 And Target.Row < 1 And Target.Row < 2 And
Target.Row < 3 And Target.Row < 4 Then
Cells(Target.Row, 1).Value = Now
End If
End Sub
|