Scroll to Cell A1

It's been almost four months since my last post. The reasons why . . .

• Work has been extremely busy. It seems that in an economic downturn my job seems to get busier rather than slow down. As the business goes south there's an increased need for the financial analysis that supports the decisions that management makes.
• Preparing for a professional exam. Studying and finally taking the test takes up a lot of time.
• A lack of fresh ideas. That's probably the real reason.

That being said, the VBA Express site posted a simple macro that allows the user to view each sheet starting at the top-left cell. A variation of that macro is shown below. In my opinion, it's more professional to distribute a workbook to others with the active cell for each sheet at "A1". This macro allows you to quickly and efficiently set up your workbook to do so before sending it out.

Sub GoToCellA1()

    Dim Sheet As Worksheet
    Dim CurrentSheet As String
    
    CurrentSheet = ActiveSheet.Name

    Application.ScreenUpdating = False
    
    For Each Sheet In Worksheets

        Application.Goto Sheet.Range("A1"), scroll:=True

    Next

Sheets(CurrentSheet).Activate

End Sub