I have a workbook which, among other things, has two pages in relationship with each other. On the PAC sheet, I have a chart which displays percentages from the data on the DivReg_PAC sheet. In PAC, the user uses a Data Validation to choose which region they want to look at. Their choice triggers an autofilter on DivReg_PAC.

The PAC viewers can choose in another validation list to go see the DivReg_PAC sheet if they want to see the actual dollar numbers.

My problem occurs when they want to return to PAC via my command button in DivReg_PAC. My current code in the PAC sheet is that whenever the sheet is activated range E1 (my data validation cell) contains a vbnullstring. This is because when the user comes in I don't know what PAC he'll want to see, so use the vbnullstring. But, when the user is coming from the DivReg_PAC sheet, I'd like him to return to the same view he left. Below I have my present code for both sheets. My hope is that someone can help me reconfigure it so the user can return to the same view he left.

Here's the Worksheet Activate code for the PAC sheet: 
Private Sub Worksheet_Activate()
    ActiveWindow.DisplayHeadings = False
    ActiveSheet.Protect
    Range("E1").FormulaR1C1 = vbNullString
    Range("N1").FormulaR1C1 = vbNullString
    
Application.EnableEvents = False
Application.ScreenUpdating = False

    With Sheets("DivReg_PAC")
        
        .Activate
        .Unprotect
        .AutoFilterMode = False
        .Columns("A:A").Select
        .Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("AB1"), Unique:=True
                
    End With

Application.ScreenUpdating = True
Application.EnableEvents = True

    ActiveWorkbook.Names.Add Name:="Divs3", RefersToR1C1:= _
        "=OFFSET(DivReg_PAC!R1C28,1,0,COUNTA(DivReg_PAC!C28),1)"
End Sub
When the user chooses to go to DivReg_PAC, their location is put into cell AA1. When they're ready to leave, they click the command button. Here's the command button code: 
Private Sub CommandButton1_Click()    'Return to Chart

    Application.ScreenUpdating = False
    Worksheets(Range("AA1").Text).Activate
    Worksheets("LBB Opr Actvty").Visible = False
    Worksheets("PAC and LBB Acct").Visible = False
    Worksheets("PAC").Visible = True
    Sheets("DivReg_PAC").Visible = False
    Application.ScreenUpdating = True

End Sub
Thanks in advance for any help.