Application.DefaultFilePath to open not just save
 

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

Application.DefaultFilePath to open not just save
 

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....

Application.DefaultFilePath to open not just save
 

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

NickHK

"Corey" wrote in message
...
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