vba limit scroll area

[bcselect]

I have a workbook with 2 sheets where I need to limit scroll area. The areas are different on each sheet. The main sheet has macro buttons to enable viewing which includes limiting scroll area.
When a sheet is selected, it works fine. But when the other sheet is selected, it still displays the scroll area on the previous sheet. Below are the 2 macros. I've looked for a way to release scroll area limiting
but haven't found anything.

Sub Out_of_Town_Printout()
Application.ScreenUpdating = False
Sheets("Flight Printout").Select
Sheets("Flight Printout").ScrollArea = "AT1:CW47"
Range("CW47").Select
Range("AT4").Select
End Sub

Sub End_of_year_printout()
Application.ScreenUpdating = False
Sheets("Flight Printout").Select
Sheets("Flight Printout").ScrollArea = "DJ1:FJ47"
Range("FJ47").Select
Range("DJ7").Select
End Sub

 

[Jeffrey Mahoney]

You're using the same sheet reference
Sheets("Flight Printout").Select
Sheets("Flight Printout").ScrollArea = "DJ1:FJ47"

What is the sheet name for the End_Of_Year_Printout?

 

[bcselect]

I have a workbook with 2 sheets where I need to limit scroll area. The areas are different on each sheet. The main sheet has macro buttons to enable viewing which includes limiting scroll area.
When a sheet is selected, it works fine. But when the other sheet is selected, it still displays the scroll area on the previous sheet. Below are the 2 macros. I've looked for a way to release scroll area limiting
but haven't found anything.

Sub Out_of_Town_Printout()
Application.ScreenUpdating = False
Sheets("Flight Printout").Select
Sheets("Flight Printout").ScrollArea = "AT1:CW47"
Range("CW47").Select
Range("AT4").Select
End Sub

Sub End_of_year_printout()
Application.ScreenUpdating = False
Sheets("Flight Printout").Select
Sheets("Flight Printout").ScrollArea = "DJ1:FJ47"
Range("FJ47").Select
Range("DJ7").Select
End Sub

Same sheet. Different locations

 

[rlv01]

Consider using the worksheet activate event for your 'main' worksheet. By 'main', I mean the worksheet not named "Flight Printout"

'Put in Main worksheet code module (not "Flight Printout")
Private Sub Worksheet_Activate()
    Me.ScrollArea = ""
    ThisWorkbook.Worksheets("Flight Printout").ScrollArea = "" '<- or WHATEVER you need it to be.
End Sub

 

[bcselect]

Consider using the worksheet activate event for your 'main' worksheet. By 'main', I mean the worksheet not named "Flight Printout"

'Put in Main worksheet code module (not "Flight Printout")
Private Sub Worksheet_Activate()
    Me.ScrollArea = ""
    ThisWorkbook.Worksheets("Flight Printout").ScrollArea = "" '<- or WHATEVER you need it to be.
End Sub

GOT IT. Thanks