Clear multiple range contents, multiple protected sheets, vba

[Lelewiwi]

I have some code that works great. However, I need to add in another range of cells to be cleared on a different sheet. Sheet names are "Sheet1" and "Hidden". The ranges that need to be cleared on the Hidden sheet are A2, A5, A14.

Sub ClearCells()

ActiveSheet.Unprotect Password:="232323"

Range("R6").ClearContents
Range("H8").ClearContents
Range("AL8").ClearContents
Range("H9").ClearContents
Range("AN9").ClearContents

Range("F23").ClearContents
Range("F26:F28").ClearContents
Range("N23").ClearContents
Range("N26:N28").ClearContents
Range("V23").ClearContents
Range("V26:V28").ClearContents
Range("AD23").ClearContents
Range("AD26:AD28").ClearContents
Range("AL23").ClearContents
Range("AL26:AL28").ClearContents
Range("AT23").ClearContents
Range("AT26:AT28").ClearContents

ActiveSheet.Protect Password:="232323"

End Sub

Thanks for your help!

 

[rlv01]

Perhaps something like this:

Sub ClearCells()
    With ActiveWorkbook
        With .Worksheets("Sheet1")
            .Unprotect Password:="232323"

            .Range("R6").ClearContents
            .Range("H8").ClearContents
            .Range("AL8").ClearContents
            .Range("H9").ClearContents
            .Range("AN9").ClearContents

            .Range("F23").ClearContents
            .Range("F26:F28").ClearContents
            .Range("N23").ClearContents
            .Range("N26:N28").ClearContents
            .Range("V23").ClearContents
            .Range("V26:V28").ClearContents
            .Range("AD23").ClearContents
            .Range("AD26:AD28").ClearContents
            .Range("AL23").ClearContents
            .Range("AL26:AL28").ClearContents
            .Range("AT23").ClearContents
            .Range("AT26:AT28").ClearContents

            .Protect Password:="232323"
        End With

        With .Worksheets("Hidden")
            .Unprotect Password:="232323"

            .Range("A2").ClearContents
            .Range("A5").ClearContents
            .Range("A14").ClearContents

            .Protect Password:="232323"
        End With
    End With
End Sub

 

[Lelewiwi]

Thank you! Worked like a charm!