'Dim crosscheck As Double
'crosscheck worksheets for out of balance shedules

dblCheck = Abs(Sheets("AvgPrice NA").Range("d17").Value -
Sheets("SalesAnalysis NAGDO").Range("d90").Value)
If dblCheck 0 Then
Sheets("AvgPrice NA").Select
Range("d17").Activate
Sheets("SalesAnalysis NAGDO").Select
With Selection.Font
.ColorIndex = 3
End With
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With

Range("d90").Activate
With Selection.Font
.ColorIndex = 3
End With
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With


End If
End Sub

--
Regards,
Tom Ogilvy