Spring fra ark til fane og tilbage igen

Kan dette bruges:?

Sub Macro2()
' Springer fra Ark1 til arkXXX og retur
' Keyboard Shortcut: Ctrl+Shift+S
If ActiveSheet.Name = "Ark1" Then
Worksheets("Ark" & Range("A5")).Activate
Range("A1").Activate
Else
Worksheets("Ark1").Activate
Range("A5").Activate
End If
End Sub

Hej Jens48

Tak for dit svar kan ikke helt få det til at virke.
Kom i kontakt med der havde denne løsning. Den virker som den skal.

Dim Old As String
Sub SpringTil()
If Old <> "" And Old <> ActiveSheet.Name Then
Sheets(Old).Select
Else
Old = ActiveSheet.Name
    a = CStr(ActiveCell.Value)
    Sheets(a).Select
End If
End Sub

Er det ikke fordi du har skrevet "Ark100" i celle A5, i stedet for blot "100"?