Scrolling around a spreadsheet

[Brutium]

A quick question.

Is there a way to limit the number of columns and rows that a user will see and therefore limit the scrolling in a spreadsheet?

Thank you

 

[VoG]

Try like this

Sub dtest()
ActiveSheet.ScrollArea = "A1:G12"
End Sub

 

[Brutium]

Hello VoG,
I tried to apply the macro in my spreadsheet, I went to Developer > Visual Basic > Sheet1 > Worksheet (in right hand side), and modified the macro to

Sub dtest()
ActiveSheet.ScrollArea = "A1:S82"
End Sub

But nothing happens. I saved the file as a .xlsm file, restarted the program, but nothing. All is the same.

 

[VoG]

Developer > Visual Basic > Insert > Module. Then paste in the code then run dtest.

 

[Brutium]

Good morning VoG,
I did what you suggested, and it works as long as I manually I run the macro. Is there a way, other than creating a button, to run the macro automatically as I start the macro enabled spreadsheet?

 

[VoG]

Try like this in the ThisWorkbook module

Private Sub Workbook_Open()
Sheets("Sheet1").ScrollArea = "A1:S82"
End Sub

 

[Brutium]

Thank You VoB

It works just as I was hoping.

THANK YOU!!!!