change:

cell.Clearcontents
to
cell.value = ""



RemySS wrote:

Tom,

I've implemented the code you supplied for Ed, however, some of the cells
involved are merged and Error 1004 appears and says "Cannot change part of a
merged cell". Any ideas?

Thanks in advance!

"Tom Ogilvy" wrote:

for each cell in activesheet.UsedRange
if cell.locked = false then
cell.Clearcontents
end if
Next

--
Regards,
Tom Ogilvy

"Ed" wrote in message
...
Hi. I am trying to clear the contents of all unprotected cells only on a
protected worksheet. Any ideas how to do it without giving the absolute
cell
reference for each of the unprotected cells I want to clear?




--

Dave Peterson