I assume you are looking of code and not how to add a button to a sheet

for each cell in Activesheet.UsedRange
if cell.Locked = False then
cell.ClearContents
end if
Next

--
Regards,
Tom Ogilvy


"Steve" wrote in message
...
Hello, I have a excel tempate for compiling data. How do I add a Control
button to clear data in unprotected cells only? Can you help? Steve