Clear cell range on multiple sheets if cell on one sheet is modified.

Oops! Copy/Paste error.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Worksheets("Monday").Range("u2")) Is Nothing Then
    Dim WSNames as Variant
    Dim A as Long
    WSNames = Array("Monday", "Tuesday", "Wednesday", "Thursday", "Friday")
    For A = 0 To UBound(WSNames)
        Worksheets(WSNames(A)).Range("H8:O27", "H30:O41", "U30:U41").ClearContents
    Next
End If
End Sub