MsgBox problem
 

I have a problem with the following code:

Private Sub CommandButton2_Click()
Msg = "In Service Settings select Bone Fluoro." & Chr(13) & _
"If value of Filter NR 1 on Dose 1 tab is 6, " & _
"set MTS=2.16 otherwise set MTS=2.15"
Style = vbOKOnly
Title = "Which MTS table?"
MsgBox (Msg, Style, Title)
End Sub

With the MsgBox line, if I only specify Msg, everything is OK. If I try to
specify any other parameter, I get a compile error stating that and equals
sign is expected.

I've tried MsgBox(Msg, , Title) as well, but with no change.
I've also tried MsgBox("Msg", , "Title") and MsgBox(Msg, vbOKOnly, Title). I
know this wouldn't show the message & title I need, but I wondered if there
was some problem with my actual message to cause this problem.

I could incorporate the title text within the message, but that defeats the
object of the function allowing a title to be specified.

Any ideas why this isn't working? As far as I can tell from VBA Help there
are no errors in my syntax, but as usual I could be wrong!

--
Ian
--

MsgBox problem
 

On Sep 16, 6:36*am, "IanC" wrote:
I have a problem with the following code:

Private Sub CommandButton2_Click()
Msg = "In Service Settings select Bone Fluoro." & Chr(13) & _
* * "If value of Filter NR 1 on Dose 1 tab is 6, " & _
* * "set MTS=2.16 otherwise set MTS=2.15"
Style = vbOKOnly
Title = "Which MTS table?"
MsgBox (Msg, Style, Title)
End Sub

With the MsgBox line, if I only specify Msg, everything is OK. If I try to
specify any other parameter, I get a compile error stating that and equals
sign is expected.

I've tried MsgBox(Msg, , Title) as well, but with no change.
I've also tried MsgBox("Msg", , "Title") and MsgBox(Msg, vbOKOnly, Title).. I
know this wouldn't show the message & title I need, but I wondered if there
was some problem with my actual message to cause this problem.

I could incorporate the title text within the message, but that defeats the
object of the function allowing a title to be specified.

Any ideas why this isn't working? As far as I can tell from VBA Help there
are no errors in my syntax, but as usual I could be wrong!

--
Ian
--

Hi Ian:

In this case MsgBox needs a place for the retrun:


Sub one()
Dim ret
msg = "In Service Settings select Bone Fluoro." & Chr(13) & _
"If value of Filter NR 1 on Dose 1 tab is 6, " & _
"set MTS=2.16 otherwise set MTS=2.15"
Style = vbOKOnly
title = "Which MTS table?"
ret = MsgBox(msg, Style, title)
End Sub

MsgBox problem
 

Hi
Unless you are trying to capture the value of the MsgBox use
MsgBox Msg, Style, Title

with no brackets.
If you want to store the return value in a variable use

MyValue = MsgBox(Msg, Style, Title)

regards
Paul



On Sep 16, 11:36*am, "IanC" wrote:
I have a problem with the following code:

Private Sub CommandButton2_Click()
Msg = "In Service Settings select Bone Fluoro." & Chr(13) & _
* * "If value of Filter NR 1 on Dose 1 tab is 6, " & _
* * "set MTS=2.16 otherwise set MTS=2.15"
Style = vbOKOnly
Title = "Which MTS table?"
MsgBox (Msg, Style, Title)
End Sub

With the MsgBox line, if I only specify Msg, everything is OK. If I try to
specify any other parameter, I get a compile error stating that and equals
sign is expected.

I've tried MsgBox(Msg, , Title) as well, but with no change.
I've also tried MsgBox("Msg", , "Title") and MsgBox(Msg, vbOKOnly, Title).. I
know this wouldn't show the message & title I need, but I wondered if there
was some problem with my actual message to cause this problem.

I could incorporate the title text within the message, but that defeats the
object of the function allowing a title to be specified.

Any ideas why this isn't working? As far as I can tell from VBA Help there
are no errors in my syntax, but as usual I could be wrong!

--
Ian
--

MsgBox problem
 

Thanks Paul & James.

It looks like this is one of those Excel oddities. It's odd that it will
work as I had it with just the message, but not when trying to specify a
title as well.

Both your solutions work and I've opted for the non-bracketed approach.

--
Ian
--

"Paul Robinson" wrote in message
...
Hi
Unless you are trying to capture the value of the MsgBox use
MsgBox Msg, Style, Title

with no brackets.
If you want to store the return value in a variable use

MyValue = MsgBox(Msg, Style, Title)

regards
Paul



On Sep 16, 11:36 am, "IanC" wrote:
I have a problem with the following code:

Private Sub CommandButton2_Click()
Msg = "In Service Settings select Bone Fluoro." & Chr(13) & _
"If value of Filter NR 1 on Dose 1 tab is 6, " & _
"set MTS=2.16 otherwise set MTS=2.15"
Style = vbOKOnly
Title = "Which MTS table?"
MsgBox (Msg, Style, Title)
End Sub

With the MsgBox line, if I only specify Msg, everything is OK. If I try to
specify any other parameter, I get a compile error stating that and equals
sign is expected.

I've tried MsgBox(Msg, , Title) as well, but with no change.
I've also tried MsgBox("Msg", , "Title") and MsgBox(Msg, vbOKOnly, Title).
I
know this wouldn't show the message & title I need, but I wondered if
there
was some problem with my actual message to cause this problem.

I could incorporate the title text within the message, but that defeats
the
object of the function allowing a title to be specified.

Any ideas why this isn't working? As far as I can tell from VBA Help there
are no errors in my syntax, but as usual I could be wrong!

--
Ian
--