Tabellenblätter mit Makro

Ich hab ne Liste, daraus ergibt sich per Makro die Tabllennamen

Sub tabneu()
Dim i, z As Double
ActiveSheet.Range("A2:A2").End(xlDown).Offset(1, 0).Select
z = ActiveCell.Row
z = z - 1
For i = 1 To z
Sheets(2).Select
Sheets.Add
ActiveSheet.Name = Sheets(1).Cells(z, 1).Value
z = z - 1
Next i

End Sub

Jetzt hätte ich nur gerne das auf jeder dieser Tabellen ein Button mit einer Makro verknüpfung.

Geht das?

2. Problem
Ich habe eine Eingabe-Tabelle, wo alle Namen nochmal aufgeführt sind. Kann ich per Makro auf die Namen ein Hyperlink setzen die automatisch auf die entsprechnenden Tabellen weisen?

Ich hoffe, vielen Dank schonmal

Gruß Philipp