The procedure stops at the following line.

Workbooks("info.xls").Worksheets(info).Range("a1") .End(xlDown).Offset(1,
0).PasteSpecial xlPasteValues
--
l-hawk


"Jim Cone" wrote:


It needs a sheet specified...
Workbooks(lngCount).Worksheets(1).Range("b1:b5").C opy

Same for...
Workbooks("info.xls").Worksheets(1).Range("a1").En d(xlDown).Offset(1, 0).PasteSpecial

Also...
Workbooks("info.xls") should probably be Workbooks("info") ?
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)