PDA

View Full Version : Solved: Clearcontents in a row



av8tordude
05-01-2011, 09:44 AM
I know Range ("S11:65000").Clearcontents will clear the contents in the selected range. How do I clear only the used range in column S, starting at row 11?

Bob Phillips
05-01-2011, 10:52 AM
Dim rng As Range
With ActiveSheet

On Error Resume Next
Set rng = Intersect(.UsedRange, .Rows(11).Resize(.UsedRange.Rows.Count))
On Error GoTo 0
If Not rng Is Nothing Then rng.ClearContents
End With

av8tordude
05-01-2011, 01:17 PM
Works great! Thank you xld