msg box in VBA

[andrewb90]

Hello,

I have attempted (rather unsuccessfully) to combine 2 separate codes and now I can't get the message box to appear. Anybody have an input to help me?

Sub sales1()Dim Msg, Style, Title
Rows("125:136").Hidden = Not Rows("125:136").Hidden
If Range("K170").Value < Range("Info!E34") Then
Msg = "It looks like you are low on Pizza Baking Instructions. You have just " & Range("K170").Value & " instructions remaining."
Style = vbOKOnly + vbExclamation
Title = "MsgBox Demonstration"
End If
End Sub

Thanks,

Andrew

 

[circledchicken]

Hi,

To display the message box if the condition is met, add the part in red below before your End If statement:

[COLOR=#b22222][B]MsgBox Msg, Style, Title[/B][/COLOR]
End If

 

[andrewb90]

Awesome, that's very simple (and I even understand it) Thanks!

 

[circledchicken]

You're welcome - thanks for the feedback.