Scroll Area

[Guest]

Is there any way of setting the scroll area of a spread sheet ie: using the
..scrollarea = function in VB where the scroll area may not be known at the
time of writing the vb code.

Instead of using activesheet.scrollarea = "a134"

I want to use activesheet.scrollarea = range1 : where range1 has been
determined

Can this be done?

 

[David McRitchie]

instead use:
ActiveSheet.ScrollArea = "range1"
and to remove
ActiveSheet.ScrollArea = ""

 

[Ron de Bruin]

Hi Ashman

You can use this

Set rng = Range("A4:E10")
ActiveSheet.ScrollArea = rng.Address

Or

Set rng = Range("A1").CurrentRegion
ActiveSheet.ScrollArea = rng.Address

 

[David McRitchie]

A better example: This will toggle between range1 as scroll area
and removing the scroll area limitations on mouse, arrow keys, scrolling, etc.

Private Sub Worksheet_BeforeRightClick(ByVal Target _
As Range, Cancel As Boolean)
Cancel = True
If ActiveSheet.ScrollArea = "" Then
ActiveSheet.ScrollArea = "range1"
Else
ActiveSheet.ScrollArea = ""
End If
End Sub