Adding a message box to inform Macro has run

[BMWE65]

Hi all,

Just another quick question regarding some macro code I have.
I have 2 buttons, each with their own macro.

Button/Macro 1 is:

Public Sub SaveAsC6()
ThisFile = Range("C6").Value
ThisFile2 = Range("E5").Value
ActiveWorkbook.SaveAs Filename:=ThisFile & "-" & ThisFile2 & "-" & Format(Date, "yyyymmdd")
End Sub

When clicking this Macro, it saves the file, using the data in cells C6, E5 and today's date as the filename.

What I would like to do is add a message box that comes up to confirm to me that the save has been successful after the button has been pressed/saved. Can anyone tell what code I need to add?
The message box can say something along the lines of 'Save Successful'.



Button/Macro 2 is:

Sub CloseWorkbook()
ThisWorkbook.Close Saved = True
End Sub


Upon pressing this button, Excel closes the workbook. However, before closing it, I would like a message box coming up, asking me 'Are you sure you want to exit'?

Thanks!

 

[bjurney]

Something like this at the end of your code should do what you need.

MsgBox("'Save Successful")

 

[VoG]

Hi. Try these

Public Sub SaveAsC6()
ThisFile = Range("C6").Value
ThisFile2 = Range("E5").Value
ActiveWorkbook.SaveAs Filename:=ThisFile & "-" & ThisFile2 & "-" & Format(Date, "yyyymmdd")
If Err = 0 Then MsgBox "Save successful", vbInformation
End Sub

Sub CloseWorkbook()
If MsgBox("Are you sure you want to exit", vbQuestion + vbYesNo) = vbYes Then ThisWorkbook.Close Saved = True
End Sub

 

[BMWE65]

Thanks both.

VoG - that is prefect - thank you.
Hopefully my new invoice system that I've been working on for the last few days will make my life a bit easier!

 

[chuckles1066]

Just to piggy back an additional question, hope the OP doesn't mind!

If I have a macro that does

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Prefix & sh.Name & ".xls"

what would I need to add to the message box to tell the user *where* any files have been saved?

The message would read something like "File has been saved successfully to" and then the path.

TIA

 

[VoG]

Try

MsgBox "File has been saved successfully to " & ActiveWorkbook.Path

 

[chuckles1066]

Splendid, many thanks!