View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
nastech
 
Posts: n/a
Default Auto Date Script..

Hello, I have the following code, but not sure how to exclude top few lines
(as header) from being affected, to modify range.. thanks

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Not Intersect(Me.Range("AJ:AJ"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "AG")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
If Not Intersect(Me.Range("AO:AR"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "AU")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub