tič, con questa dovresti essere apposto, ti aggiunge anche i link ai fogli: sostituiscila alle altre:

codice:
Private Sub CommandButton1_Click()
    
    rigainiz = 3
    RigaFine = ActiveSheet.Cells(rigainiz, 1).End(xlDown).Row
    foglioiniz = ActiveSheet.Name
    
    FoglioMaster = "BASE"
    
    For t = rigainiz To RigaFine
        nomefoglio = ActiveSheet.Cells(t, 1)
        Sheets("BASE").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = nomefoglio
        Sheets(foglioiniz).Activate
        ActiveSheet.Cells(t, 1).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
        SubAddress:=nomefoglio & "!A1", TextToDisplay:=nomefoglio
    Next t

End Sub
facci sapere
ciao