"Tim Williams" <saxifrax at pacbell dot net wrote in message
...
If r is your range

Set r = r.Resize(r.Rows.Count - 1, r.Columns.Count).Offset(1, 0)

makes the range on row shorter and shifts it down one row.


...... which of course is *not* what was required (but hey, you might need
to do it some day).

Yim.



"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