Change:

c.ClearContents
to
c.Value = ""

And to get all the worksheets:

Sub ClearForm()
Dim c As Range
dim wks as worksheet
for each wks in activeworkbook.worksheets
For Each c In Sheets("sheet1").UsedRange.Cells
If c.Locked = False Then
c.value = ""
end if
next c
next wks

End Sub

Jaclyn wrote:

I would like to allow users to clear the contents from all of the unprotected
cells in multiple sheets of a workbook, simultaneously.

I read a similar posting on the subject in
microsoft.public.excel.worksheet.functions, posted by sstea, titled How to
clear multiple cells of input data in Excel simultaneously. The suggested
code was as follows:

Sub ClearForm()
Dim c As Range
For Each c In Sheets("sheet1").UsedRange
If c.Locked = False Then
c.ClearContents
End If
Next

End Sub

This was a good start but I ran into errors.

1. Runtime error '1004'. Cannot change part of a merged cell. How do I
edit this code to clear the contents of unprotected merged cells?
2. How do I make this simultaneously work on multiple sheets in the workbook?

--

Dave Peterson