I have this before save event in my code, which, when saves runs ok.
Sub befor_save()
Range("A1").Select
MsgBox "Enjoy your metrics. Now please save this file so as not to overwrite the original"
sFilename = Application.GetSaveAsFilename("", "Excel files (*.XL*), *.XL*")
End Sub
I get the message box, then the save as box appears. The only issue I have is that when I do enter a name to save the file under, then click OK, it doesnt actually save, and I am still left with the original copy open. Note that this code comes at the end of a lots of other lines (nothing too eleaborate), but why would that make a difference? If I open a new work book and just add this in now, it works fine?????? Any ideas?
Sub befor_save()
Range("A1").Select
MsgBox "Enjoy your metrics. Now please save this file so as not to overwrite the original"
sFilename = Application.GetSaveAsFilename("", "Excel files (*.XL*), *.XL*")
End Sub
I get the message box, then the save as box appears. The only issue I have is that when I do enter a name to save the file under, then click OK, it doesnt actually save, and I am still left with the original copy open. Note that this code comes at the end of a lots of other lines (nothing too eleaborate), but why would that make a difference? If I open a new work book and just add this in now, it works fine?????? Any ideas?