Here's code before the line that debugs. Could that be a problem?

..Range("j1") = Evaluate("=f1*g1" + "f2*g2")
..Range("j2") = Evaluate("=j1\f3")
..Range("k1") = 10
If .Range("j2") < .Range("k1") Then
..Range("a4:i4").Value = .Range("a3:i3").Value
..Range("e4") = "PA"
..Range("f4") = Evaluate("f3*k1-j1")
End If


--
vbidiot
------------------------------------------------------------------------
vbidiot's Profile: http://www.excelforum.com/member.php...o&userid=31582
View this thread: http://www.excelforum.com/showthread...hreadid=512725