works fine for me (no errors) - it may depend on what's in the cells you're
referencing.
But the statement Range("A4:i4")=.Range("A3:I3") should really contain
".value" at the end of the range. or it won't work as expected.

"vbidiot" wrote in
message ...

I keep getting a "type mismatch" error for below. I know it has to be
something simple that I'm missing. Can anyone help?


If .Range("j2") < .Range("k1") Then
Range("a4:i4") = .Range("a3:i3")
Range("a4:i4").Value = .Range("a4:i4").Value
Range("e4") = "PA"
Range("e5") = 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