VBA to run when either of two cells changed by user

[asad]

Hello VBA Gurus,

Yet again I unsuccessfully tried to write VBA code. Can you guys please let me know what is wrong with this code. I am simply trying to hide all columns in range E3 to PZ3 if the dates in these are less than the date in C1 or greater than the date in D1.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xCell As Range
    
        If Target.Address <> Range("C1").Address Or Target.Address <> Range("D1") Then Exit Sub
            Application.ScreenUpdating = False
                For Each xCell In Range("E3:PZ3")
                    If xCell < Range("C1") Or xCell > Range("D1") Then
                    xCell.EntireColumn.Hidden = True
                    End If
                Next
    Application.ScreenUpdating = True
End Sub

 

[Michael M]

Are both C1 and D1 populated, as the code will fail if one is blank.
Try

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xCell As Range
    Application.ScreenUpdating = False
   If Intersect(Target, Range("C1:D1")) Is Nothing Then Exit Sub
   If Range("C1") = "" Or Range("D1") = "" Then Exit Sub
                For Each xCell In Range("E3:PZ3")
                    If xCell < Range("C1") Or xCell > Range("D1") Then
                    xCell.EntireColumn.Hidden = True
                    End If
                Next
    Application.ScreenUpdating = True
End Sub

 

[asad]

Thanks Michael_M.
Works Perfect

 

[Michael M]