Delete cell contents

R

Rob

Could someone please provide some VBA code that will delete all cell
contents for all the unlocked cells in a sheet?

Rob
 
G

Gary''s Student

Sub rob()
For Each r In ActiveSheet.UsedRange
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub
 
R

Rob

Thankyou so much. Worked perfectly.

As an alternative for another application I have, could you also provide me
with the code to have cells only cleared from a specified range instead of
the whole sheet?

Rob
 
G

Gary''s Student

Sub rob()
For Each r In Selection
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub

In this version, just Select the area you wish to clear before running the
macro.
 
R

Rob

Thanks again and that is useful, but could you please provide code that will
do a predefined range, such as A5:G200

Rob
 
R

Rob

And....
the condition that only the unlocked cells be cleared in the predefined
range still need to apply.

Rob
 
D

Dave Peterson

Change this:
For Each r In Selection
to
For Each r In activesheet.range("a5:g200").cells
 
Top