ClearContents of a range of cells in on sheets bar 5

This works:
Hi, I have made a bit of code to ClearContents of a range of cells. At the moment in clears every sheet expect one of my choosing. But I need to choose 5 sheets instead of one.

Can any one help.

Thanks.

Option Explicit

Sub ClearA1toJ92()

Dim ws As Worksheet
Dim TheName As String

TheName = "Sheet2"
For Each ws In ActiveWorkbook.Worksheets
If Not ws.Name = TheName Then
ws.Range("A1:J9").ClearContents
End If
Next ws

End Sub

I now have this (See Below), which works. But I now need to do the same but instead of ClearContents I need to unlock cells.

The vba code when recording a new macro is:
Selection.Locked = False
Selection.FormulaHidden = False


Thanks

Jason


Option Explicit

Sub exam()
Dim wks As Worksheet

For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7"
Case Else
wks.Range("A1:J9").ClearContents
End Select
Next
End Sub

Just changed it and it works fine.

Thanks

Please Login or Register  to view this content.