Hi,

Here's one way

Sub ClearCells()
ActiveSheet.Protect
On Error Resume Next
ActiveSheet.UsedRange = ""
On Error GoTo 0
ActiveSheet.Unprotect
End Sub


Mike

"CandiC" wrote:

does anyone know if it is possible to write a macro to clear all unlocked
cells by the click of a button on a user form?