thanks heaps for that. It worked. I just had to change 1 section
little
set bk = Workbooks.Open
to
Set bk = ThisWorkboo
--
XCESI
-----------------------------------------------------------------------
XCESIV's Profile:
http://www.excelforum.com/member.php...fo&userid=2427
View this thread:
http://www.excelforum.com/showthread.php?threadid=53825