offset property to define range

[Art]

I have an object variable for a range on the spreadsheet.
What is the easiest way to select a rectangular range on
the spreadsheet using the offset property (or something
similar).

I have this so far:

Dim testRng As Range
Set testRng = Worksheets("Sheet1").Range("A120")
testRng.Value = 9
testRng.Cells(4 to 6,1 to 3).ClearContents 'error "to"

 

[Dick Kusleika]

Art

testRng.Cells(1).Offset(3,0).Resize(3,3).ClearContents

 

[Alan Beban]

testRng(4, 1).Resize(3, 3).ClearContents is probably easier.

Alan Beban