variable NewName is set to workbook name & work sheet name
newName = WB2 & "." & wsName

you then try and insert copied sheet after a sheet with this combine
name which does not exist

try

Workbooks(WB1).Worksheets(wsName)..Cop
After:=workbooks(wb2).Worksheets(1

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com