Springe mellem ark v.h.a. Makro

Denne lille stump kode burde kunne klare det.

' Vælger navn der står i celle B2
fane = Range("B2")

' Skifterfane til "fane"
Sheets(fane).Select

Du kan evt. prøve a lave en knap på din forside og sætte følgende kode in i click eventen:

Sub Button1_Click()
 
  On Error GoTo fejlHåndtering
 
  visFane = Range("B2").Value
  Sheets(visFane).Visible = xlSheetVisible
  Sheets(visFane).Select
  tidligerefane = ActiveSheet.Previous.Name
  Range("A1").Select
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        tidligerefane & "!A1", TextToDisplay:="<<<<< TILBAGE"
 
fejlHåndtering:
    If Err = 9 Then
      MsgBox ("Fanen " & visFane & " findes ikke i dette regneark")
    Else
      If Err <> 0 Then
        MsgBox ("Fejl " & Err)
      End If
    End If
   
End Sub

Denne sørger for at du bliver sendt til den fane som er valgt i B2. Den laver endvidere en hyperlink i A1 på den nye fane der peger tilbage på den fane som man kom fra (forsiden)

For at gemme din fane med tegningen igen, kan du på forsiden højreklikke på selve fanen og vælge "View Code" og indsætte følgende:

Private Sub Worksheet_Activate()
  Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
      If ws.Name <> ActiveSheet.Name Then
        ws.Visible = xlSheetHidden
      End If
  Next ws
End Sub

Den sørger for at lige så snart du aktiverer "forside fanen" vil den gemme alle faner på dit regneark undtagen selve forsiden.

Hej og tak for svarende. Coder_carl, håber det er iorden, at jeg prøver det andet svar først. Kommer tættest på det, jeg håbede at opnå.

Hej Somalpe.
Tak for svaret. Har prøvet at lægge koden ind i knappen samt koden ind i programkoden på arkene. Virker næsten efter hensigten. Der kom dog en fejlmeddelse, da jeg trykkede på knappen, at den ikke kunne finde arket. Jeg prøvede at omdøbe tegningerne/arkene, så de har de samme navne som valgmulighederne i B2. Det virker, men ikke helt som jeg gerne ville have haft det.
Når jeg nu efterfølgende trykker på "<<<<< TILBAGE" som bliver sat ind i A1 på tegningerne sker der kun det, at alle arkene, undtaget det, jeg står i skjules - Altså det ark med tegningen, jeg valgte. Jeg kommer ikke tilbage til forsiden, som jeg i mellemtiden har omdøbt til "Dosotherm".
Håber du kan hjælpe mig med at få rettet de sidste par ting?

#3 => helt fair, det er også noget mere grundigt end hvad jeg kom med. Troede bare du manglede en kommando.

Her er der en lidt modificeret udgave:

Sub Knap1_Klik()
 
  On Error GoTo fejlHåndtering
  tidligerefane = ActiveSheet.Name
  visFane = Range("B2").Value
  Sheets(visFane).Visible = xlSheetVisible
  Sheets(visFane).Select
 
  Range("A1").Select
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        tidligerefane & "!A1", TextToDisplay:="<<<<< TILBAGE"
 
ProcedureDone:
  Exit Sub
 
fejlHåndtering:
    If Err = 9 Then
      MsgBox (Err & " Fanen " & visFane & " findes ikke i dette regneark")
    Else
      If Err <> 0 Then
        MsgBox ("Fejl " & Err)
      End If
    End If

End Sub

Prøv den og se om der stadig er problemer,

Tak for tilbagemeldingen. Virker desværre heller ikke. kommer med en fejlmelding: "Referencen er ugyldig", når jeg trykker på "<<<<< TILBAGE" ??

Det undrer mig at det ikke virker ved dig da det virker find her. Prøv evt at modificere Hyperlinket således at du udskifter
tidligerefane & "!A1"
med navnet på din forside
"Dosotherm!A1"
Virker det ?

Tak for svaret. Det første var også rigtigt. Min fejl; havde af en eller anden grund ikke fået kopieret hele koden med over. Sorry og mange tak for hjælpen! Er jo nybegynder i dette forum. Hvordan får jeg lagt pointene over til dig?

Måske du også kan hjælpe mig med det næste, jeg har planlagt.
Er meningen at regnearket skal sendes ud til forskellige mennesker. Derfor vil jeg også låse/beskytte arket. Men mit spørgsmål er: Til hver af de 4 tegninger/skemaer/ark, hvortil der nu, med din hjælp, er et link på forsiden og tilbage igen, er der ca. 10 små skitser på/i hver, der er placeret, så de dækker et område af flettede celle), vil jeg gerne have, at man ved et valgfri tryk på en af skitserne, kommer videre til en mere detaljeret, ny tegning (A-4 størrelse).
D.v.s. 4 ark, hvorpå der igen er ca. 10 valgmuligheder på hver, for at få vist, evt. printet en ny, mere detaljeret tegning. Altså links til ca. 40 tegninger placeret et eller andet sted i regnearket. Kan selvfølgelig gøres ved at oprette 40 ark med hver sin PDF-tegning, hvortil der linkes v.h.a. et alm. hyperlink, men er der ikke en lidt lettere måde at gøre det på.

Point giver du ved at acceptere dette her svar.

Jeg ser lige om jeg ikke kan hjælpe dig med billederne når jeg får tid.

Du kunne evt. oprette et nyt spørgsmål så andre også kan byde ind med en mulig løsning :)