Clear data EXCEPT summary sheet

[redspanna]

Hi all

Can this code be changed so that it runs but excludes clearing data in 'Summary' sheet

Sub Clear_All()
Dim a As Long
    For a = 1 To Sheets.Count
        Worksheets(a).Range("B6:I55,B62:I111").ClearContents
    Next a
MsgBox "All data removed"
End Sub

thanks in advance

 

[Fluff]

How about

Sub Clear_All()
Dim Ws As Worksheet
    For Each Ws In Worksheets
      If Not Ws.Name = "Summary" Then Ws.Range("B6:I55,B62:I111").ClearContents
    Next Ws
MsgBox "All data removed"
End Sub