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. zkratku

4) Kód se vkládá do ThisWorkbook