for each cell in Activesheet.UsedRange
if not cell.Locked then
cell.clearcontents
end if
Next


or assuming you wouldn't clear formulas


for each cell in Activesheet.UsedRange.SpecialCells(xlconstants)
if not cell.Locked then
cell.clearcontents
end if
Next
' or if you would add
for each cell in Activesheet.UsedRange.SpecialCells(xlformulas)
if not cell.Locked then
cell.clearcontents
end if
Next
--
Regards,
Tom Ogilvy

"Phil Hageman" wrote in message
...
What would the macro code be to clear all unprotected
cells in the current worksheet? Would put this macro in
Personal.xls