Select A1 sheets : VBA Code.

[Arpanakumar]

Hello Team.

I work on huge workbooks with 50 + worksheets after our workings, expected to keep the cursor in A1 sheet in every sheet, Presently doing it manually by going to each sheet and select a1 cell. I think my question make sense.

 

[Monty]

Selecting A1 in every sheet? But why?

 

[Monty]

Try this!

Attach this code to a button in the first page, or create as addin so that this code will work for every workbook you open.

Sub Select_A1()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
    sht.Activate
    sht.Range("A1").Select
Next sht
End Sub

Hope you like it.

 

[Arpanakumar]

Thanks Monty.

Yes this works, you saved so much time of my team.
Can you help me creating Addin so that i can use this code in any workbook please.

 

[Monty]

Dear Arpana.

First you need to save your workbook as Addin template.



Then below Steps.

Excel add-in

1. Click the File tab, click Options, and then click the Add-Ins category.
2. In the Manage box, click Excel Add-ins, and then click Go. The Add-Ins dialog box appears.
3. In the Add-Ins available box, select the check box next to the add-in that you want to activate, and then click OK.

 

[YasserKhalil]

Thanks Mr. Monty
Another way ..

Sub Select_A1l()
    Dim sht As Worksheet
   
    For Each sht In ActiveWorkbook.Sheets
        Application.Goto sht.Range("A1"), True
    Next sht
End Sub

 

[p45cal]

Or you could just right-click a tab, choose Select all sheets, click on cell A1, then click on any tab.