I have a similar warning (provided by another helper) on the sheet so I tried
this:

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "f22:f23" '<== change to suit
Const CON_RANGE As String = "e18:e18" '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If .Value = "Yes" Then
MsgBox "You have choosen to invoice OPEN PO's. You must
deliver the goods/services or advise accounting staff before you proceed."
'.Value = ""
End If
End With
End If
If Not Intersect(Target, Me.Range(CON_RANGE)) Is Nothing Then
With Target
If .Value < "0" Then
MsgBox "The Value of Consumables is not set to ZERO-Please
Check"
'.Value = ""
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

This probably a bit crude by your standards and only works if I replace the
formula with a value that is not zero. If I change the underlying data to a
value other than 0, it does not recognise that it is not zero.

This is not a before print test but it would serve my purpose.


--
Jim


"aneasiertomorrow" wrote:

Hi

You could use conditional formatting so it's really obvious and 'in their
face' when it isn't equal to zero.

Lucy
--
MOS Master Instructor
www.aneasiertomorrow.com.au

If this post answered your question please let us know as others may be
interested too


"Jim G" wrote:

I have a sheet that serves as a summary card for job data. Cell E18 has a
formula that finds and returns the value of the consumable levy on the job
card. Is there a way to prompt or remind users to check this if the value is
zero? A user will almost always need to print the summary, so before
printing may be a good time to remind them.

Hope you can help.


--
Jim