VBAであるBOOKの「sample」というシートを別BOOKに

質問

VBAであるBOOKの「sample」というシートを別BOOKに
別Bookにコピーしたいのですが、
ネットを参考にして下記のようにするとエラーになります。

実行時エラー'9'
「インデックスが有効範囲にありません」

と表示されます。
どこが間違っているでしょうか？　どなたか教えてください。

----------------------------------------

Dim NewBook As Workbook
Dim fName As String

Set NewBook = Workbooks.Add

fName = ThisWorkbook.Path & "cp.xls"
NewBook.SaveAs Filename:=fName

Workbooks("moto.xls").Sheets("ピッキング").Cells.Copy
Workbooks(fName).Sheets("Sheet1").Paste Destination:=Cells(1, 1) '<---ここでエラー
Workbooks(fName).Save

----------------------------------------

回答No.1

mt2008 · ベストアンサー

単なるブック名と、フルパス(パス付きブック名）が区別されていません。
恐らく、こういう事がしたいんじゃないですか？

Sub Sample()
　　Dim NewBook As Workbook
　　Dim fName As String

　　Set NewBook = Workbooks.Add

　　fName = ThisWorkbook.Path & "\cp.xls"　'<-「ThisWorkbook.Path」では、最後の「￥」は付きません
　　NewBook.SaveAs Filename:=fName

　　Workbooks("moto.xls").Sheets("ピッキング").Cells.Copy
　　Workbooks("cp.xls").Sheets("Sheet1").Paste Destination:=Cells(1, 1) '<-ブック名を指定します。fName（フルパスファイル名）ではNG
　　Workbooks("cp.xls").Save '<-同上
End Sub

お礼

ありがとうございます。
無事できました。

まだまだ勉強不足ですね・・・
頑張ります！