Hi there


I have the following macro which clears the contents of unprotected cells on
a sheet. It stops with the error message "400", however, when it gets to the
drop down boxes on the sheet within the selection.

Here is the macro:



Sub clearunprotectedcells()

Dim cell As Range
Range("A3:I59").Select
For Each cell In Selection
If cell.Locked = False Then
cell.ClearContents
End If
Next
End Sub


Does anybody have a way of modifying the script so it will clear all the
drop down boxes (they are all unprotected, incidentally!) AS WELL AS the
unprotected cells?


any help gratefully recieved. please do not hesitate to contact if you need
more info


cheers


jb