Private Sub CommandButton1_Click()
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:=Range("A1").Text, FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

Private Sub CommandButton1_Click()
    a = ActiveSheet.Name
    ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
    Sheets(Sheets.Count).Name = Range(a & "!" & "A1").Text
 End Sub

Private Sub CommandButton1_Click()
    a = ActiveSheet.Name
    ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
    
   On Error GoTo f
   Sheets(Sheets.Count).Name = Range(a & "!" & "A1").Value
    Exit Sub
f:
    Sheets(Sheets.Count).Name = Range(a & "!" & "A1").Value & " - " & Str(Round(Rnd( 42342 ) *  100000 ))
 End Sub