Vis sheet i excel ark via makro

Dim x

Sub Vis()
x = x + 1
If x > 4 Then x = 0: Exit Sub
Sheets("Suitability analysis (" & x + 1 & ")").Visible = True
End Sub

Med nedenstående makro får du vist på knappen på "Overview" hvilket ark der bliver vist næste gang. der trykkes på knappen. Ret makroen til, hvis knappen ikke hedder "Button 1"

Sub Vis()
Sheets("Suitability analysis (" & Cells(1, 1) + 1 & ")").Visible = True
If Cells(1, 1) = 0 Then
Sheets("Suitability analysis (10)").Visible = False
Else
Sheets("Suitability analysis (" & Cells(1, 1) & ")").Visible = False
End If
If Cells(1, 1) = 9 Then
Cells(1, 1) = 0
Else
Cells(1, 1) = Cells(1, 1) + 1
End If
If Cells(1, 1) = 2 Then
End If
ActiveSheet.Shapes("Button 1").Select
    Selection.Characters.Text = "Show Sheet:" & Chr(10) & "Sustainability analysis(" & Cells(1, 1) + 1 & ")"
Cells(1, 1).Select
End Sub

@excelent - formlen virker kun til visning af ark 2, virker ikke bagefter?

@jens48, når jeg bruger din formel, laves der bare en kopi som så navngives Suitability analysis 11, jeg har brug for at få vist selve arkene Suitability analysis (2), (3) osv. da jeg har formler som er knyttet op på præcis det arknavn.

Du får lige et hurtigt svar inden jeg kigger nærmere på det senere. Det ser ud til at jeg glemte et mellemrum i tredienederste linie. Prøv med:

Sub Vis()
Sheets("Suitability analysis (" & Cells(1, 1) + 1 & ")").Visible = True
If Cells(1, 1) = 0 Then
Sheets("Suitability analysis (10)").Visible = False
Else
Sheets("Suitability analysis (" & Cells(1, 1) & ")").Visible = False
End If
If Cells(1, 1) = 9 Then
Cells(1, 1) = 0
Else
Cells(1, 1) = Cells(1, 1) + 1
End If
If Cells(1, 1) = 2 Then
End If
ActiveSheet.Shapes("Button 1").Select
    Selection.Characters.Text = "Show Sheet:" & Chr(10) & "Sustainability analysis (" & Cells(1, 1) + 1 & ")"
Cells(1, 1).Select
End Sub

Glem alt om mit sidste svar. Det påvirker kun teksten på knappen, hvor jeg i øvrigt havde brugt et forkert ord. Jeg har afprøvet makroen igen og det virker OK her. Har du kopieret makroen i sin helhed over i et modul? Har du 10 sider at skifte imellem? Har du verificeret at alle sider hedder som oprindeligt angivet? Det er hvad jeg kan komme i tanke om, hvor det kan have gået galt. Alternativt kan du sende mig filen (kober_soerensen(snabel-a)hotmail.com)