how to save on exit. (ONLY IF) workbook name is "XX"

[aedctalk]

Question. How could I make it so it only does the activeworkbook.saveas IF the workbook name currently open is called "BOWSER"

(i ask because once a week when program is closed the file renames itself to the date so then we we open old dated files it tries to overwrite bowser)

So just trying to avoid that and only run the below script if i'm currently running "BOWSER"

Thanks for any insight

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    ActiveWorkbook.SaveAs "\\" & Sheets("Configuration").Range("J8").Value & "mbo" & Sheets("Configuration").Range("C21").Value & "\c\Documents and Settings\Manager\Desktop\" & Sheets("Configuration").Range("J21").Value & "\BOWSER.xls"

End Sub

 

[Smitty]

Seems fairly straightforward:

If ActiveWorkbook.Name = "BOWSER" then...

HTH,