Place this between macro1 & the end sub


Code:
--------------------
Range("F3").Formula = "IF(AND(............)" (had changed all " " to "" ""
for textwithin formula)
--------------------


or replacr all of the macro recording with Dons macro


--
mudraker

If my reply has assisted or failed to assist you I welcome your
Feedback.

www.thecodecage.com
------------------------------------------------------------------------
mudraker's Profile: http://www.thecodecage.com/forumz/member.php?userid=18
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=67601