VBA Code help for clearing multiple cells on all worksheets but three

Hi all,

Complete beginner at VBA code, trying to make a code that can clear contents of certain cells on all worksheets except three. Can someone help me with my code:

Sub Clear()

Dim i As Long
Sheet1.Select
Range("F30:F31").Select
Selection.ClearContents
Range("I35").Select
Selection.ClearContents
Range("I37").Select
Selection.ClearContents
Range("D49:D55").Select
Selection.ClearContents
For i = 2 To ThisWorkbook.Sheets.Count
If Sheets(i).Name <> "HOURS" Or_
If Sheets(i).Name <> "MASTER" Or_
If Sheets(i).Name <> "Summary" Then Sheets(i).Select Replace:=False
Next i

End Sub

Maybe:

Please Login or Register  to view this content.

Hey, Thanks! Seems to have worked.

You're welcome. Glad to help out and thanks for the feedback. Please comply with Forum Rules and mark this thread as solved.

http://www.excelforum.com/forum-rule...rum-rules.html