Stopping error

[XCESIV]

Below is a macro i have made that saves the file name like i want it too
using data from the worksheet. The problem is if they file name has
been used before, which it shouldnt have but could have accidently been
saved, it asks if you would like to save over this. if you click no
then it crashes.

Is it possible to set it that if u click no it just ends the macro.

thanks

Sub SAVEAS_NEW_FNE()
Dim FN As Workbook
Dim D As Variant
[D] = Format(Range("B3"), "mm_dd_yyyy")
ThisWorkbook.SaveAs Filename:="FNE " & [D]
End Sub

 

[Ivan Raiminius]

Hi,

if you want simply prevent raising error use on error resume next.

Better way is to check if the filename is already used, have a look at:

http://www.j-walk.com/ss/excel/tips/tip54.htm

regards,
Ivan

 

[Bob Phillips]

Sub SAVEAS_NEW_FNE()
Dim FN As Workbook
Dim D As Variant
Dim sFilename As String

[D] = Format(Range("B3"), "mm_dd_yyyy")
sFilename ="FNE " & [D]
If Len(Dir(sFilename)) = 0 Then
ThisWorkbook.SaveAs Filename:="FNE " & [D]
Else
Msgbox sFilename & " already exists"
End If
End Sub


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

 

[XCESIV]

in a macro i have i open a 2nd workbook. when i try and get the macro
to close the file it asks to save yes/no

is there a way to stop it asking this question

Thanks

 

[Bob Phillips]

Use

Use the SaveChanges:=False option on the close.

--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)