View Single Post
Old 10-17-2017, 06:31 AM
Phil H Phil H is offline Windows XP Office 2010 64bit
Advanced Beginner
Join Date: Jun 2010
Posts: 81
Phil H is on a distinguished road
Default Simplified Test Worksheet

Debaser, Created a simple test worksheet with the below code - still does not work.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell                  As Range
    On Error GoTo oops
    If Not Intersect(Target, Range("B3:E5")) Is Nothing Then
        Application.EnableEvents = False
        For Each cell In Intersect(Target, Range("B3:E5")).Cells
            Cells(cell.Row, "F").Value = Date
        Next cell
    End If
    Application.EnableEvents = True
End Sub
Attached Files
File Type: xlsx AutoDateUpdate.xlsx (8.2 KB, 6 views)
Reply With Quote