View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Paul B Paul B is offline
external usenet poster
 
Posts: 709
Default Message box help

Michael, try this,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
If Target.Address = "$A$1" And Target.Value 600 Then
MsgBox "Supervisor Approval Needed"
[A2] = "Supervisor contacted"
End If
Application.EnableEvents = True
End Sub

this is worksheet code, right click on the sheet tab, view code to put it in

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"hedgehog1" wrote in message
ps.com...
I would like to have a message box appear when the value of a cell is
greater than what I have determined, then place a statement in a cell
to show a message. For example; if the value of a cell is greater that
$600.00, then the message box would pop up and state "Supervisor
Approval Needed". Then it would place a line on the sheet that states
"Supervisor contacted" in the cell of my choosing.

Thanks,

Michael