Sub test()
    Dim sFileName As String
    Dim sAnz As String
    Dim i As Long
 
    sAnz = InputBox("Bitte Zahl eintragen:")
    'ein paar Checks
    If sAnz = vbNullString Then Exit Sub
    If Not IsNumeric(sAnz) Then
        MsgBox "Eingabe war nicht numerisch !", vbInformation
        Exit Sub
    End If
    If CLng(sAnz) > 99 Then
        MsgBox "Mehr als 99 Kopien kann ich nicht !", vbInformation
        Exit Sub
    End If
 
    Tabelle1.Cells(7, 5).Value = sAnz
 
    For i = 1 To CLng(sAnz)
        Tabelle1.Cells(5, 5).Value = CStr(i)
        sFileName = "D:\Excel2000\Test\Kopie" + Format(i, "00") + ".xls"
        Tabelle1.SaveAs sFileName
    Next i
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1