lrow = Range("A65536").End(xlUp).Row
Set rng = Range("A1:I" & lrow)

The above placed into the immediate window, then enter:
? rng.address {Enter}
produces (below)

$A$1:$I$5

HTH

"Duncan" wrote in message
oups.com...
Why cant you use the mouse scroll button within the code?! That is
really annoying and I have always wondered if there was a reason to it!

On another side, what is a good snippet for selecting only filled cells
so that you dont print blank pages? Ive tried the below but its not
working, it only selects the first two lines of anything

Set rng = Range(Range("A1"), Range("I1").End(xlDown).Offset(1, 0))
rng.Select
Selection.PrintOut Copies:=1, Collate:=True

Any ideas?