for each cell in Range(B:T).SpecialCells(xlConstants)
if cell.locked = False then
cell.ClearContents
end if
Next

--
Regards,
Tom Ogilvy


"bobreese" wrote in message
...
I have desinged a very simple Excel Worksheet for a friend of mine. She
wants
to enter all the hours from a time card on each employee. It has two weeks
of
data to enter so she can easily figure her payroll for each employee. It
looks something like this:

Column 1 Column 2 Colum 3 etc.
AM Time In Data Entry Same for next 6 employees
AM Time Out Data Out Same for next 6 employees
Total AM Protected Formula
PM Time In Data Entry Same for next 6 employees
PM Time out Data Entry Same for next 6 employees
Total PM Protected Formula
Totoal Hours Protected Formula

This is repeated for 2 weeks. All Fields are protected and locked except
for
Data Entry Fields. My problem is, I would like to clear the sheet after
the
payroll has been made and printed. If you have the work sheet protected, I
have no way to clear all the Data Entry fields at once. The only way I can
do
it is to dlete each field individually as selecting all will not work on
the
unproted Data Entry fields.

Please help. I have completed all the work except for this one item.