Very neat!


Gord


On Mon, 2 Nov 2009 11:41:02 -0800, Mike H
wrote:

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?