vba Range().Select

[Pinaceous]

Hello Everyone,

How would you create a macro for the curser to go to

 Range(A1).Select

for every ODD sheet?

Likewise, how would you create a macro for the curser to go to

 Range(B1).Select

for every EVEN sheet?

Many thanks in advance!
Pinaceous

 

[Kenneth Hobson]

IF you are going with sheetnames, change .CodeName to .Name in post #9 . Change Ken to FORMAT. Change K1 to B11. Change Sheet3 to TOTALS.

 

[Dim Me as xlNoob]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "TOTALS" Then
        Sh.[C1].Activate
    ElseIf Sh.Name = "FORMAT" Then
        Sh.[B11].Activate
    ElseIf Sh.Index Mod 2 = 0 Then
        Sh.[B1].Activate
    Else
        Sh.[A1].Activate
    End If
End Sub

 

[Pinaceous]

Thank you Kenneth & Dim Me xlNoob !! I'm going to go with post #12 for my application.