Clearing cell contents
Thanks, that worked perfectly.
"Norman Jones" wrote:
Hi Gina,
Try something like:
'=============
Public Sub Tester()
Dim rng As Range
With ActiveSheet
Set rng = Intersect(.UsedRange, .Columns("A:E"))
End With
Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)
rng.ClearContents
End Sub
'<<=============
---
Regards,
Norman
"Gina" wrote in message
...
Hi,
I have the following bit of vba which works fine:
Worksheets("sheet1").Columns("A:E").ClearContents
What I would like to do is have it so that it doesn't delete the contents
in
the first row. I know I could clear the contents using rows in the bit of
code instead of columns but there could potentially be hundreds of rows of
data so I wouldn't be able to specify a range.
Is there are way of deleting the contents from columns but exclude a
specific row?
Thanks
|