Thanks Dave.

Rob


"Dave Peterson" wrote in message
...
Change this:
For Each r In Selection
to
For Each r In activesheet.range("a5:g200").cells



Rob wrote:

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

Rob

"Gary''s Student" wrote in
message
...
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.
--
Gary''s Student - gsnu200714


"Rob" wrote:

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

"Gary''s Student" wrote in
message
...
Sub rob()
For Each r In ActiveSheet.UsedRange
If r.Locked Then
Else
r.ClearContents
End If
Next
End Sub
--
Gary''s Student - gsnu200713


"Rob" wrote:

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

Rob







--

Dave Peterson