Al cambiar una celda, me limpie dos rangos de cada hoja

Tengo el código de abajo pero no se aplica correctamente, alguien me puede ayudar, muchas gracias. Al cambiar una celda quiero que limpie el rango de cada hoja con una condición.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Hojas As Worksheet
Dim celda As String
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    If Target.Address = "$I$4" Then
        For Each Hojas In ActiveWorkbook.Worksheets
            With Hojas
                .Select
                celda = .Range("ZZ100").Value
                If celda <> "" Then
                    .Range("G81:U111").ClearContents
                    .Range("Z81:AK111").ClearContents
                End If
            End With
        Next Hojas
    End If
    Sheets("INDICE").Select
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Sub