View of Spreadsheet

[Robert13]

After my code has run, the spreadsheet goes to cell A1. However, as the view has frozen panes, it shows starting at a row far down on the spreadsheet. I can manually move up and over after the macro has run. However, is there a way to refresh the screen in the code so that I see A1, and then the top rows after that?

 

[jamtay317]

we need the code

 

[Robert13]

Here it is.

With Range("C2")
ActiveSheet.Range("$A$5:$AN$600").AutoFilter Field:=3, Criteria1:=Array( _
"Central", "East", "Schedule", "East F/E", "West"), Operator:= _
xlFilterValues
End With
Range("A5:az700").Select
Selection.Sort Key1:=Range("W1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
With Columns("X:X")
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("C:D").EntireColumn.Hidden = True
Columns("G:J").EntireColumn.Hidden = True
Columns("U:U").EntireColumn.Hidden = True
Columns("Y:AB").EntireColumn.Hidden = True
Columns("AC:AI").EntireColumn.Hidden = True
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("South Region Schedule").Copy Before:=Sheets(1)
Sheets("South Region Schedule (2)").Name = "Monthly Schedule"
Range("S1:T602,A1:R602,u1:x602").Select
Dim c As Range
For Each c In Selection.SpecialCells(xlCellTypeVisible)
c.Value = c.Value
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Range("X2:X3,E2:e2").ClearContents
ActiveWindow.Zoom = 90
Sheets(1).Buttons.Delete
Sheets("Monthly Schedule").Move
Range("A1").Select