Clear All Unprotected Cells (merged too)

[jamesmev]

Would anyone know how to include merged cells into this clear?
I need to clear all unprotected cells in a worksheet. (if you have something that already works would you share?)

Sub cleartestall()    Dim r As Range, rcleara As Range
    Set rclear = Nothing
    For Each r In ActiveSheet.UsedRange
        If r.Locked = False Then
            If rcleara Is Nothing Then
                Set rcleara = r
            Else
                Set rcleara = Union(rcleara, r)
            End If
        End If
    Next r
    rcleara.clear
End Sub

 

[Yongle]

Here is a method to loop merged cells and clear them individually

Sub ClearMergedCells()
    Dim Rng As Range, cel As Range
    Set Rng = ActiveSheet.UsedRange
    For Each cel In Rng
        If cel.MergeCells Then
          If cel.Locked = False Then cel.MergeArea.ClearContents
        End If
    Next cel
End Sub

Or (using UNION) clearing them together

Sub ClearMergedCells()
    Dim Rng As Range, cel As Range, rClearA As Range
    Set Rng = ActiveSheet.UsedRange
    For Each cel In Rng
        If cel.MergeCells And cel.Locked = False Then
            If rClearA Is Nothing Then
                Set rClearA = cel
            Else
                Set rClearA = Union(rClearA, cel)
            End If
        End If
    Next cel
    rClearA.ClearContents
End Sub

Add a second loop to your procedure to deal with merged cells separately

Note
ClearContents used to avoid removing the merged cell completely
Use Clear if that is what you want to happen