Excel Default SaveAs file name 1

[ballbearing]

I hope this question hasn't been answered more than 27 times before (probably has..but gotta ask anyway)

How should I code this?

In C:\Files\ I have:
book1.xls
book2.xls
book3.xls

How do I have it save to book4.xls automatically using code?

Thanks
Randy

Gawd I love this Access stuff..too bad I don't know what I'm doing.

 

[ETID]

Assuming that the Files folder contains only sequentially numbered Books....

Sub Name_file()
Dim X As Integer
Dim New_File_Name As String
SourceFolder = "C:\Files\"
Set fso = CreateObject("Scripting.FileSystemObject")
X = fso.GetFolder(SourceFolder).Files.Count
New_File_Name = "Book" + trim(CStr(X + 1)) + ".xls"
End Sub