Change this line:
MyPath = Application.GetSaveAsFilename
to this:
MyPath = Application.GetSaveAsFilename(MyPath)
"Chris Hankin" wrote in message
...
Hello,
Could someone please help amend my macro code so that when it is run,
the SaveAs window pops up and automatically selects the desired
directory location in my macro?
Sub Save_to_Dir()
'
'Save to Dir
'
Dim MyPath As String
Application.ScreenUpdating = False
MyPath = "G:\WLMAEWCSPO\LMU\LOGISTICS PREPAREDNESS SYSTEMS\LOGISTICS
SYSTEMS\LOGSYS3\LOCAL PURCHASE\ON-LINE DEMAND REQUESTS\"
MyPath = Application.GetSaveAsFilename
End Sub
Any help would be greatly appreciated.
Kind regards,
Chris.
*** Sent via Developersdex http://www.developersdex.com ***
----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----