dknowles2004
Board Regular
- Joined
- Nov 15, 2004
- Messages
- 79
How would I join the following code together to run in a Worksheet Change function please? I need to use multiple lots of code like this.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F11:AU14")) Is Nothing Then
Range("BD10").Value = Now
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F17:AU20")) Is Nothing Then
Range("BD16").Value = Now
End If
End Sub