hvordan op rettes et Array

Indsættes i ThisWorkbook

Const positioner = "A1,C3,D2,F1,G7,X1"              'eksempel på celleadresse på 6 ark - kan udvides efter behov
Dim tabel As Variant
Private Sub Workbook_Open()
    tabel = Split(positioner, ",")
    Sheets(1).Activate
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ActiveSheet.Range(tabel(Sh.Index - 1)).Select
End Sub

tak for svaret men hvad hvis man har 6 ark men det kun er i ark1 og ark3 man vil have den til at starte i en bestemt celle men ikke det samme nr feks b3 og d4.

Selv tak - her er der taget højde for, hvis du ændre på bestående
Rem Version 2
Const positioner = "B4,,D4,,,"
Dim tabel As Variant
Private Sub Workbook_Open()
    tabel = Split(positioner, ",")
    Sheets(1).Activate
    If tabel(0) <> "" Then
        ActiveSheet.Range(tabel(0)).Select
    End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If tabel(Sh.Index - 1) <> "" Then
        ActiveSheet.Range(tabel(Sh.Index - 1)).Select
    End If
End Sub

den sidste er det ikke til en projektmappe med 5 ark

Jo ser sådan ud - så blot udvid med et ,

takker for hjælpen

her er point