Clear all Unprotected Cells in all Sheets?

[FinancialAnalystKid]

I have this code to clear all the unprotected cells in a sheet. How can it be modified to select ALL sheets and clear all the unprotected cells?

Thanks for help!

Sub ClearUnprotectedCells_AZ500()
    For Each c In Range("A1:AZ500")
    If c.Locked = False Then c.ClearContents
    Next
End Sub

 

[Jonmo1]

Try

Sub ClearUnprotectedCells_AZ500()
Dim ws As WorkSheet, c As Range
For Each ws In WorkSheets
    For Each c In ws.Range("A1:AZ500")
        If c.Locked = False Then c.ClearContents
    Next c
Next ws
End Sub