Can I globally erase all unprotected cells in a worksheet?

[Barry Katcher]

When I go from one fiscal year to the next, I have to erase all the unprotected data I've input to clear the cells for the new year. There can be dozens of unprotected ranges throughout the spreadsheet, and I have dozens of yearly workbooks.

I can't highlight the entire sheet and erase, because most of the cells are protected. Is there a macro to designate only the unprotected cells and erase them in one swell foop? Thanx in advanx.

[NateO]

Yes sir, try the following:

Sub clr()
Dim cl As Range
For Each cl In ActiveSheet.UsedRange
If Not cl.Locked Then cl.ClearContents
Next cl
End Sub