Here is what I need to do:

I want to have a UserForm that, when opened, offers the user the chance to save a COPY of the open workbook, with a default name already filled out (but which the user can change. The place to save the file should be the same folder as the original.

Example: file is in C:\ExcelStuff and is called Example.xls
The default new file name should be: Example-SPARE.xls and go to the C:\ExcelStuff folder.

Clicking a "OK" button or similar should cause this to happen.
Of course, there should be a cancel capability.

Once the user has clicked to do this, the new file should be the one on the screen.

Thanks in advance to any of you who can lend me a hand on this.

mailto:[email protected]

Kodiak Services Company
+1 615 874 8495

Hi

You can use the save as dialog through code

Sub SaveasDialog()

Dim sWBName As String
Dim sPAth As String
On Error Resume Next

sWBName = ActiveWorkbook.Name
sWBName = Left(sWBName, Len(sWBName) - 4)

sPAth = "C:\ExcelStuff\"
Application.Dialogs(xlDialogSaveAs).Show sPAth & sWBName & "-SPARE.xls"

End Sub


Cheers
Shasur

http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)