Msg Box at the end of macro

JoeExcelHelp
5StarLounger
Posts: 1153
Joined: 22 Jul 2013, 18:29

Msg Box at the end of macro

Post by JoeExcelHelp »

Cant get the msg box 'completed' to appear at the end of the macro

Code: Select all

Sub run_all_macro()
Application.ScreenUpdating = False
Data = MsgBox("Are you certain all RosterApps data is correct?", vbYesNo, "Calculate Roster Import")
If Data = vbYes Then
Call Module1.Distribute
End If
Application.ScreenUpdating = True
MsgBox ("Completed")
End Sub

User avatar
HansV
Administrator
Posts: 74787
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: Msg Box at the end of macro

Post by HansV »

The message box should be displayed, unless Module1.Distribute contains something that stops code execution (such as a line that just contains End)
Regards,
Hans

JoeExcelHelp
5StarLounger
Posts: 1153
Joined: 22 Jul 2013, 18:29

Re: Msg Box at the end of macro

Post by JoeExcelHelp »

Thank You Hans

User avatar
HansV
Administrator
Posts: 74787
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: Msg Box at the end of macro

Post by HansV »

Were you able to solve it?
Regards,
Hans