Macro to clear unprotected cells?

[tonywatsonhelp]

Hi Everyone,

Is it possible to get a macro that will clear unprotected Cells in a protected sheet?

thanks

Tony

 

[steve the fish]

Try:

Dim rng As Range, c As Range
For Each c In ActiveSheet.UsedRange
    If c.Locked = False Then
        If Not rng Is Nothing Then
            Set rng = Union(rng, c)
        Else
            Set rng = c
        End If
    End If
Next
rng.ClearContents

 

[tonywatsonhelp]

Thanks Steve,
worked great, first time :-0
I will be using this a lot from now on

Great Thanks

Tony