The third line does not work, so I commented it out and am using the 4th
line, but this seems a little redundant to me. What is wrong with it.


Set WB = Workbooks("Template_CK Ordered.xls")
Set SH = WB.Sheets("CO_Template")
'Set rDestCell = WB.SH.Range("A2")
Set rDestCell = Workbooks("Template_Ck
Ordered.xls").Worksheets("CO_Template").Range("A2" )
Set wkbkCSV = Workbooks.Open(Filename:=sFile1)