activesheet.saveas løkke

hej. kan det lade sig gøre at få vba til at lægge et tal til filnavnet hver gang man trykker på gem...så hvis der i mappen ligger en fil med navnet 1.xls, skal den næste gemmes som 2.xls?

har prøvet med denne her, men den gemmer bare 5 filer:

Sub test2()

Dim t
t = 1


Do Until t = 6
 
  ActiveSheet.SaveAs Filename:="c:\" & t

  t = t + 1
loop

End Sub