Delete contents unlocked cells
Try this:
Sub delunlocked()
Dim aktter As Range, acell As Range
Set aktter = Selection.CurrentRegion
For Each acell In aktter
If Not acell.Locked Then acell.ClearContents
Next acell
End Sub
Regards,
Stefi
€˛RobN€¯ ezt Ć*rta:
Could someone please provide me with some code to clear contents of all
unlocked cells in a worksheet?
Rob
|