Excel2003でworksheetクラスのCopyメソッドが失敗し

Excel2003でworksheetクラスのCopyメソッドが失敗しました。
という表示がでて全く原因がわからず困っています。
詳細は

ThisWorkbook.Worksheets("請求書・原本").Copy Before:=Worksheets(sheetname2)

の箇所でエラーが発生します。
発生する場所はたまに変わります。
すぐ上のプロシージャで実行している同じようなステートメントは問題なく実行されるのですが、
急に同じ構文の箇所で発生しているので全く理由がわかりません。
変数で設定しているシート名は確実に存在しています。

コードは以下のとおりです。

Function fncPrtCon2(ByVal sheetname As String, ByVal siki As String, ByVal mainScr As String, ByVal i As Long)

'【変数】
Dim wDate As Date '日付入力用変数
Dim xDate As Date
Dim work As String '日付フォーマット用
Dim sheetname2 As String



ThisWorkbook.Worksheets("明細・原本").Copy Before:=Worksheets("明細・原本")
sheetname = sheetname & "・" & Worksheets(mainScr).Cells(i + 1, 6).Value & "・明細"
ActiveSheet.Name = sheetname
sheetname2 = sheetname

(中略)

　　'原本シートコピー
ThisWorkbook.Worksheets("請求書・原本").Copy Before:=Worksheets(sheetname2)
sheetname = Replace(sheetname, "・明細", "")
ActiveSheet.Name = sheetname

End Function

上記コードはサブモジュールでメインから各引数を値渡ししています。
Copyメソッドの引数を省略して実行すると成功します。
どこか問題のある箇所があるでしょうか。
助言お願いします。

No.2 ベストアンサー 回答者： 1050YEN 回答日時： 2010/05/20 20:57

>エラーが発生します。

これだけでは、いろいろな事が考えられるので、憶測でしか物を言えません。
エラーが出ているときは、エラーメッセージも載せるようにしましょうね。


引数のBefore:=Worksheets(sheetname2)
↑
このシート「Worksheets(sheetname2)」は、アクティブなワークブックに存在しているシートではないとか？

Before:=Workbooks("Book1.xlsなどのブック名").Worksheets(sheetname2)
という感じにしてあげるとうまくいくかもしれません。

No.1 回答者： kmetu 回答日時： 2010/05/20 20:56

sheetname2 に不正な値が渡されているのではないですか。