SavAs

Fred Donahoe · Mar 25th, 2002, 12:00 PM

Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

I am using the above macro in my spread sheet. If you have saved a file it asks if you wish to over write and if you say no or cancel it kicks the debugger on. How do I avoid this or get pass the error?

dk · Mar 25th, 2002, 12:10 PM

Hi,

You just need to use Application.DisplayAlerts=False e.g.

Public Sub SaveAsA1()
ThisFile = Range("A1").Value
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisFile
Application.DisplayAlerts = True
End Sub

HTH,
D

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 25th, 2002, 12:00 PM	#1
Fred Donahoe New Member Join Date: Mar 2002 Posts: 2	Public Sub SaveAsA1() ThisFile = Range("A1").Value ActiveWorkbook.SaveAs Filename:=ThisFile End Sub I am using the above macro in my spread sheet. If you have saved a file it asks if you wish to over write and if you say no or cancel it kicks the debugger on. How do I avoid this or get pass the error?

Mar 25th, 2002, 12:10 PM	#2
dk MrExcel MVP Join Date: Feb 2002 Location: Sydney, Australia Posts: 2,908	Hi, You just need to use Application.DisplayAlerts=False e.g. Public Sub SaveAsA1() ThisFile = Range("A1").Value Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=ThisFile Application.DisplayAlerts = True End Sub HTH, D