Need Help Defining Scroll Area . .

[Evagrius Ponticus]

Hi,

I am not sure why this isn't working - keep getting an error - I tried with and without the quotes . .

Mylast = Cells(Rows.Count & 3).End(xlUp).Row

ActiveSheet.ScrollArea = "Range(Cells(1, 1), Cells(Mylast + 5, 52))"

 

[Norie]

Try this.

ActiveSheet.ScrollArea = Range(Cells(1, 1), Cells(Mylast + 5, 52)).Address

 

[VoG]

Try this - the ScrollArea property requires a range address and you cannot create this just by adding quote marks.

Dim MyLast As Long
MyLast = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
ActiveSheet.ScrollArea = Range(Cells(1, 1), Cells(MyLast + 5, 52)).Address

 

[Evagrius Ponticus]

Thanks VogII, Norie for the explanation and help - you guys are unequivocally Awesome!