Solved: Clearcontents in a row

[av8tordude]

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]

[vba]

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
[/vba]

[av8tordude]

Works great! Thank you xld