Sub Test()
Dim BaseDateRng As Range
Set BaseDateRng = Worksheets("Sheet1").Range("A2:D10")
'This line below is wrong and doesn't work
Set BaseDateRng = BaseDateRng.Offset(-1, 0) _
.Resize(BaseDateRng.Rows.Count + 1)
Debug.Print BaseDateRng.Address
End Sub

produces

$A$1:$D$10

--
Regards,
Tom Ogilvy



"Dan Thompson" wrote in message
...
Hi there I don't know if this is posible or not but I would like to think
so.

Sub Test()
Dim BaseDateRng As Range
Set BaseDateRng = Worksheets("Sheet1").Range("A2:D10")
'This line below is wrong and doesn't work
Set BaseDateRng = BaseDateRng.Row - 1
End Sub
What I am trying to do is change just the Row property of my range object
without having to redeclare it as...
Set BaseDateRng = Worksheets("Sheet1").Range("A1:D10")

I should be able to just alter reset or redim or something the "row"
property of my range object. Is this posible and if so what is the corect
syntax for doing it ??

Thanks, Dan