There was similar question in .programming earlier, this was my response
there

Sub ClearCells()
Dim cell As Range
With ActiveSheet
For Each cell In .UsedRange
If Not cell.Locked Then
cell.ClearContents
End If
Next cell
End With
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Randy" wrote in message
...
I am creating a fill in form in excel 2000. I am locking everything
except
the cells I need filled in. I need a way to clear all entries in these
cells after a form is completed and printed. This way the next user has a
clean form to begin with. How can I do this...Thanks..Randy