Activesheet.Unprotect
for each cell in activesheet.usedrange
if cell.locked then cell.interior.colorIndex = 3
Next
Activesheet.Protect

--
Regards,
Tom Ogilvy

"steve" wrote in message
...
for a particular worksheet, if a cell is locked, i want it to be filled in
with a color. How can this be accomplished?

Thank you,

Steve