Dim myPath As String, ThisFile As String
myPath = "H:\Temp\"
ThisFile = myPath & Range("A1").Value
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisFile
Application.DisplayAlerts = True
On Sat, Oct 2, 2010 at 6:34 PM, Johnnyboy5 <intermediatec...@gmail.com>
wrote:
> Hi
> When I use the macro below it does save the file as per cell A1 and
> it does save it to the chosen drive. But it then closes Excel.
>
> On checking the file location it is saved there.
> Any ideas what’s wrong.
> Thanks
> John
>
>
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
As Boolean)
> Dim FileSaveName
> ChDrive "H"
> ChDir "H:\Temp"
> ThisFile = Range("A1").Value
> ActiveWorkbook.SaveAs Filename:=ThisFile
> End Sub
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
