2) Pokud Tě to irituje, že se automaticky vytváří tlačítko zpět, tak prostě smaž tento kus kódu
For Each Ws2 In Worksheets
If Ws2.Name <> Sheets("Seznam listů").Name Then
Ws2.Activate
On Error Resume Next
ActiveSheet.Shapes("Tlacitko1").Delete
On Error GoTo 0
With Range("A1")
Set Tlacitko = ActiveSheet.Buttons.Add(Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
End With
With Tlacitko
.Name = "Tlacitko1"
.OnAction = "zpet"
.Characters.Text = "Zpět"
.Characters.Font.Name = "Arial"
.Characters.Font.Size = 10
End With
End If
Next Ws2
3) Tak nějak mi není jasný jak chceš klávesovou zkratkou používat vzorec. Motáš dvě věci dohromady. Buď budeš mít v buňce vložený hypertextový odkaz (CTRL+K), nebo budeš používat makro kterému přiřadíš klávesovou zkratku. To makro je již v modulu napsané Private Sub zpet()
Sheets("Seznam listů").Activate
End Sub
Odstraň slovo Private a přiřaď kláv. zkratku4) Kód se vkládá do ThisWorkbook