Of course, you'll need to replace
Set wksSource = Sheets("Sheet2")
Set wksTarget = Sheets("Sheet1")
with...
Set wksSource = Workbooks("source.xls").Sheets("mysource")
Set wksTarget = Workbooks("desti.xls").Sheets("mydesti")
--
Garry
Free usenet access at
http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc