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