code:

---

   break on

$objXL = CreateObject("EXCEL.application")

if @error = 0
   

   $rc = $objXL.Workbooks.
$objWorkbook = $objXL.Workbooks.Open("c:\WeldFlag.xls")
$objWorksheet = $objWorkbooks.ActiveSheet

$objCell = $objWorksheet.Range("c3")

If $objCell.Value = "overdue"
$objXL.Visible = 1    
$Selection = MessageBox ("Please do a new Setup on Welder 601", "OVERDUE SETUP ON 601", 36)
    If $Selection = 6
	?  "Enter New Setup Date on Worksheet and Anstat"
	sleep 4
	Endif
Endif
break off
$Selection = MessageBox ("NO Setup NEEDED on Welder 601", "Good SetUp ON 601", 64)



$objXL.Quit
$objXL = 0

:end
 

---