MsgBox when one cell turns into a specific value

[Nelson78]

Good morning.

I've the following job: the sub global is always preceded by a pop up of confirmation.
Now, I want the pop up only when one cell (example: B2) is empty.

Sub global()

If Not check Then Exit Sub

Call first

Call second

End sub

Function check() As Boolean
Dim Answer As Integer

Answer = MsgBox("Do you want to go on?", vbYesNo)

If Answer = vbNo Then
Exit Function
End If

If Answer = vbYes Then
End If

Check = True

End Function

Thank's in advance.

 

[FormR]

Hi, how about adding a simple check and only calling the function if the cell is empty:

Sub myglobal()
If Range("B2") = "" Then
    If Not check Then Exit Sub
End If
Call first
Call second
End Sub

 

[Nelson78]

Hi, how about adding a simple check and only calling the function if the cell is empty:

Sub myglobal()
If Range("B2") = "" Then
    If Not check Then Exit Sub
End If
Call first
Call second
End Sub

Many thanks: it works perfectly.