Geöffnetes Tabellenblatt mit Hyperlink versehen

Sub neuesTabellenblatt()
Dim z, Na, ok
With Worksheets("Eingabe")
For z = 7 To 100
ok = True
Na = .Cells(z, 4)
If Na  "" Then
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name = Na Then
ok = False
End If
Next
If ok Then
Worksheets("Vorlage").Copy After:=Worksheets("Eingabe")
ActiveSheet.Name = Na
Range("b2") = .Cells(z, 2)
Range("b3") = .Cells(z, 5)
Range("d2") = .Cells(z, 4)
Range("b4") = .Cells(z, 6)
Exit For
End If
Else
Exit Sub
End If
Next z
End With
End Sub