I’ve inherited this macro ( I know nothing about macros at all) to clear all contents in sheets Mon: Fri from A3:A60


But I would like to password protect the sheet (Mon to Fri) as several people keep taking the formulas out due to mistakes they make.

I’ve tried protecting the sheet, then running the macro to see what happens but a run time error 1004 keeps coming up and sort method of range class failed to do with the protection on the sheet.

Can someone please help with this so when the sheet is protected, when running the macro it will remove the protection on sheets Mon to Fri, remove the contents as below and then re protect sheets Mon to Fri

Sheets(Array(" MON", " TUE", " WED", " THUR", " FRI")).Select
' Sheets(" FRI").Activate
' ActiveWindow.LargeScroll Down:=-4
Range("G3:I60,K3:M60,O3:Q60,S3:U60,W3:Y60").Select
' Range("W3").Activate
Selection.ClearContents
Sheets(" MON").Select
Range("A3:E60").Select
Selection.sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets(" TUE").Select
Range("A3:E60").Select
Selection.sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Sheets(" WED").Select
Range("A3:E60").Select
Selection.sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Sheets(" THUR").Select
Range("A3:E60").Select
Selection.sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Sheets(" FRI").Select
Range("A3:E60").Select
Selection.sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
' Range("O60").Select
' Sheets(" THUR").Select
End Sub



thank you for your help :-)