Thanks KKKnie, this is going to work
"kkknie" wrote:
Dim dblCheck as Double
dblCheck = Abs(Range("A1").Value - Range("B1").Value)
If dblCheck 2 Then
'Whatever you want to do if they are out of tolerance
End If
Or if they are on different (open) workbooks
dblCheck =
Abs(Workbooks("Book1.xls").Sheets("Sheet1").Range( "A1").Value -
Workbooks("Book2.xls").Sheets("Sheet1").Range("B1" ).Value)
If dblCheck 2 Then
'Whatever you want to do if they are out of tolerance
End If
Adapt to fit your circumstances.
K
--
kkknie
------------------------------------------------------------------------
kkknie's Profile: http://www.excelforum.com/member.php...fo&userid=7543
View this thread: http://www.excelforum.com/showthread...hreadid=267810