Curious: One works, the other doesn't ---- why????

[spydey]

I have a workbook with multiple sheets.

I have some simple code that I thought would work, but for some reason it doesn't.

Here is the code in a module:

Sub GoHome()

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ThisWorkbook

For Each ws In wb.Worksheets
     ws.Range("A1").Select

Next ws

End Sub

I run it and it doesn't work.

However, if I add:

ws.Activate

Prior to ws.Range("A1").Select, then it works perfectly.

Why do I need to activate each worksheet prior to selecting that worksheet's A1 cell?

Thanks for the clarification!!

-Spydey

 

[steve the fish]

Open up a workbook with say 2 sheets. From 'Sheet1' select A1 of 'Sheet2'. You cant unless you activate 'Sheet2' first. Hence why you cant in code either. You rarely need to select anyway.

 

[Fluff]

You can only select a cell on the active sheet.
That said it's very rare that you need to select things.

 

[spydey]

Open up a workbook with say 2 sheets. From 'Sheet1' select A1 of 'Sheet2'. You cant unless you activate 'Sheet2' first. Hence why you cant in code either. You rarely need to select anyway.

Thank you @steve the fish

I figured that was the case but I could have sworn I have many examples of code where I am on one sheet and doing things to another sheet in the same workbook, but never activated the 2nd sheet.

I could be wrong .....

Thanks again!!

-Spydey

 

[spydey]

You can only select a cell on the active sheet.
That said it's very rare that you need to select things.

@Fluff

So my ultimate goal is to bring the view up to Cell A1 on each sheet, rather than some random cell.

Would it be more appropriate to Activate cell A1 rather than select cell A1?

-Spydey

 

[Fluff]

To move A1 to the top of the screen you will need to select the sheet & activate the cell

 

[spydey]

To move A1 to the top of the screen you will need to select the sheet & activate the cell

Thank you!!

-Spydey

 

[steve the fish]

I often use goto

Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range

Set wb = ThisWorkbook

For Each ws In wb.Worksheets
    Set rng = ws.Range("A1")
    Application.Goto rng, True
Next ws

 

[spydey]

@steve the fish

That is a great little piece of code! Thanks for sharing.

-Spydey