thanks Jamie but the macro is stopping at
If InStr(UCase(Sheets(SourceTab).Cells(x, "B")),

any suggestions?


--
TonyG001
------------------------------------------------------------------------
TonyG001's Profile: http://www.excelforum.com/member.php...o&userid=35737
View this thread: http://www.excelforum.com/showthread...hreadid=555185