Hvordan kan jeg gemme 1000 gange uden at overskrive?

Jeg har lavet et lille program i VBA i excel som randomiserer mine data 1000 gange. Jeg vil gerne gemme en fil med data efter hver gentagelse i .prn formatet til videre behandling. Jeg ville gerne ha gemt filerne nummereret f.eks. 1-1000.

Håber der er nogle der kan hjælpe! Er kørt lidt fast!

Mit Program:

Sub Random()
'
' Random Makro
' Makro indspillet 13-06-2006 af Rune Munk Pedersen
'
' Genvejstast:Ctrl+R
'
For x = 1 To 5

    Range("B2:B38").Select
    Selection.FormulaArray = "=shuffle(Ark1!R2C1:R38C1)"
    ActiveWindow.SmallScroll Down:=-6
    Range("B1:J38").Select
    ActiveWindow.SmallScroll Down:=-33
    Range("M13").Select

ActiveWorkbook.SaveCopyAs Filename:= _
      "H:\Individualitet\Regneark\Resample folder for DFA\Name.prn", FileFormat:=xlTextPrinter, _
        CreateBackup:=False


Next x

total = x

MsgBox "The total is " & total
   
End Sub