New to VBA

Greeting Everyone,
I been scratching my head in order to get this macro to work the way i want but have not been able to do so, so i am requesting help from the forum.
What i want the code to do is to show a msgbox("Top plate must be change now" if cell I7 = 1 and to show the 2nd msgbox if cell I7=0.
And what is currently doing is showing both msgbox on after the other.
Also the sub is call manually with a button.
Any help is very much appreciated.

Thanks


Sub Tooling()
Result = MsgBox("Top Plate Must be change now", vbOKOnly + vbCritical)
Counter = Range("i7")

If Counter = 1 Then
MsgBox "Top Plate Must be change now", vbOKOnly + vbCritical
Result = vbOK
Sheets("Tooling").Protect "password", True, True

ElseIf Counter = 0 Then
MsgBox "Click Check Tooling button at the end of shift", vbOKOnly + vbInformation

End If

End Sub

Hi VRSMeza

welcome.. you have 3 codelines for msgboxes and the first one excecutes always regardless of the value of I7 that test comes later. as it is the first line of code..

the following code should do what you expect

Please Login or Register  to view this content.

_____________
small request, whenever you post code to the forum please always use code tags (#-icon) it is one of the forumrules to do so.

That did the job thanks a lot.
Will do the code tags for future posts. Now I will try to figure out how to mark this as SOLVED.

Thank You Roel Jongman

Will do.