Brug variables i andre VBA koder

Hej,

Jeg har nedenstående kode, som hente navne på den arkfanen jeg står på og gemme den i en variabel, så jeg kan bruge navne på arkfanen i en anden Sub procedure.

Jeg kan dog ikke få det til at fungerer. Håber at I kan hjælpe:

Public ShtName As Variant

Sub NøgletalVis()
Set ShtName = ActiveSheet.Name
    Sheets("Nøgletal").Visible = True
    Sheets("Nøgletal").Select

End Sub

Sub NøgletalSkjul()
    Sheets("Nøgletal").Visible = xlSheetVeryHidden
    Sheets(" & ShtName & ").Select
End Sub