springe til bestemt celle

Anbring denne kode i ThisWorkbook i VBA (Alt+F11) - udføres når filen åbnes:
Sub workbook_activate()
    Cells(2, 8).Select
End Sub

Jeg har en række ark, hvor den også skal starte et bestemt sted, så skal koderne bare sættes ind under den første kode?

Koden ovenfor virker fint, men jeg vil gerne have at den kun springer op i det pågældende felt i ark1. I ark 2 og de følgende ark vil jeg gerne have at den springer hen til en anden celle. I ark1 skal det være H2, i ark2 og ark3 skal det være E15. Det kunne være smart hvis den den automatisk springer op til de pågældende celler hver gang man gør det pågældende ark aktivt.

Anbring denne kode i ThisWorkbook modulet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Ark1" Then
        Range("H2").Select
    Else
        Range("E15").Select
    End If
End Sub

smid et svar kabbak, det virkede som ønsket

et svar ;-))