JuniorASA
11-30-2006, 09:20 AM
I am now writing a macro.
This macro shows a message box to have following message
"Macro Macro1 has been completed."
Right now I would like to have three message instead of one.
i.e.
"Macro Macro1 has been completed."
"The running begin at XX:XXpm"
"The running end at XX:XXpm"
"The total running time is yy min"
how could I modify below code to reach 4 message in separate line instead of one.
Many Thanks,
Sub Starting()
Dim MacroName, StartTime, EndTime, TimeDiff
MacroName = "Macro1"
Application.Run MacroName
Msg = "Macro" & MacroName & "has been completed."
Style = vbOKOnly
Title = "Macro Message Box"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
End Sub
This macro shows a message box to have following message
"Macro Macro1 has been completed."
Right now I would like to have three message instead of one.
i.e.
"Macro Macro1 has been completed."
"The running begin at XX:XXpm"
"The running end at XX:XXpm"
"The total running time is yy min"
how could I modify below code to reach 4 message in separate line instead of one.
Many Thanks,
Sub Starting()
Dim MacroName, StartTime, EndTime, TimeDiff
MacroName = "Macro1"
Application.Run MacroName
Msg = "Macro" & MacroName & "has been completed."
Style = vbOKOnly
Title = "Macro Message Box"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
End Sub