Application.DefaultFilePath to open not just save

  • Thread starter Thread starter Corey
  • Start date Start date
C

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