Application.DefaultFilePath to open not just save

[Corey]

I am currently using the below code to set the default save path but i want
to have is, the Default file path folder opened so the user can navigate to
a Sub Folder, then save it.


Sub Macro2()
' Saves and Quits Excel
Application.DefaultFilePath = ("\\Office2\my documents\Cure Sheets")
res = InputBox("Enter the Splice Number....", "Company Name...")
If res = "" Then Exit Sub
With ActiveWorkbook
ActiveWorkbook.Save
End With
With ActiveWorkbook
ActiveWorkbook.SaveAs Filename:=res
On Error GoTo 0
End With
Application.DisplayAlerts = False
Application.Quit
End Sub


How can i do this ?


Regards

Corey

 

[Corey]

Forgot to mention.
I have the main file as a Template.
How do i set the other files to SaveAs .xls and Not as Templates?

Corey....

 

[NickHK]

Corey,
Have you tried:
ChDir "C:\"
RetVal= Application.GetSaveasFilename()

NickHK