Hi Scarecrow,

Try:

'=============
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range

Set rng1 = Me.Range("A1") '<<==== CHANGE

On Error Resume Next
Set rng2 = Intersect(Target, rng1.Precedents)
On Error GoTo 0

If Not Intersect(rng1, Target) Is Nothing _
Or Not rng2 Is Nothing Then
With rng1
If Not .Value = "" And .Value = 0 Then
MsgBox rng1.Address(0, 0) & " value = 0"
End If
End With
End If

End Sub
'<<=============

This is worksheet event code and should be pasted into the worksheets's code
module (not a standard module and not the workbook's ThisWorkbook module):

Right-click the worksheet's tab
Select 'View Code' from the menu and paste the code.
Alt-F11 to return to Excel.


---
Regards,
Norman



"Scarecrow" wrote
in message ...

Im new to excel and have just been finding out the basics of macros. Can
anyone tell me how to make a message box appear when a certain cells
value reaches 0?


--
Scarecrow
------------------------------------------------------------------------
Scarecrow's Profile:
http://www.excelforum.com/member.php...o&userid=35364
View this thread: http://www.excelforum.com/showthread...hreadid=551335