ungeschützte Zellen löschen

weiss jemand, wie unten stehender Code verändert werden muß, damit auch der Inhalt von verbundenen Zellen gelöscht wird ?

Gruß
Lutz

Sub Loeschen()
Dim rngAct As Range
For Each rngAct In ActiveSheet.UsedRange
If rngAct.Locked = False Then
    rngAct.ClearContents
End If
Next rngAct
End Sub