Sub clr()
Dim c As Range

For Each c In Sheet1.UsedRange
If c.Locked = False Then
c.Clear
End If
Next
End Sub

Mike F
"Corey" wrote in message
...
I have a userform to input values into a sheet.
Now after either previewing the sheet, or printing it, i have the need to
now remove the values(many) that were placed into the sheet.
Rather than tediously entering each cell by name, is there a way to
clearcontents of ALL cells that are Unlocked in the sheet ?
I tried:
with sheets("Inspections")
if xlUnlockedCells = True then
xlUnlockedCells.ClearContents
end with

But i get an error.

Is there a way i can code this ?

Corey....