Åben sheet

Private Sub CommandButton1_Click()
Sheets("Ark" & Range("B4")).Select
End Sub

skift Ark ud med Sheet, hvis det er en engelsk udgave

Hvis du bruger koden som Kabbak skriver den, så for du fejl hvis du skriver andet end nummeret på en af de ark du har.

Prøv i stedet med

Private Sub CommandButton1_Click()
If Range("B4") = 1 Then
  Sheets("Ark1").Select
End If
If Range("B4") = 2 Then
  Sheets("Ark2").Select
End If
End Sub

Så sker der ikke noget, hvis ikke der lige findes et ark med det nummer du indtaster i B4.

tonnypoulsen -> Ja men han skal jo også programmere for hver ark, det vil sige , hvis han tilføjer et nyt ark, skal han også programmere for det.
Det er han fri for ved mit svar.

Kabbak- Jeg sidder lige og prøver at knække nødden.
Jeg har forsøgt mig med følgende kode, det virker ikke helt. Hvordan skriver man betingelsen, når den skal være imellem 1 og 3.

Private Sub CommandButton1_Click()
If Range("B4") = 1 To 3 Then
Sheets("Ark" & Range("B4")).Select
End If
End Sub

Private Sub CommandButton1_Click()
If Range("B4") >= 1 and  Range("B4") <= 3 Then
Sheets("Ark" & Range("B4")).Select
End If
End Sub

Det var lige det der skulle til.

Ps. turnusplanen kører fint, de blev glade for den ude på jobbet.

det var da dejligt