VBAエラー対処 インデックスが有効範囲にありません

Question

標準モジュールに【copypaste】という関数を作成しています。
関数の内容はあるシートからデータをコピーして
別のシートにペーストするという内容です。
あるシートの部分が毎回変化するのでシート名だけ指定して同じ処理をしたいです。
以下のようなコードを書き
Call copypaste("Sheet1")
のように呼び出しているのですが

インデックスが有効範囲にありませんというエラーが発生します。

どの部分が間違っていますでしょうか。ご教示お願いします。

Public Function copypaste(WSN As String) As Boolean
copypaste = False


Dim ALLEND As Long
Dim CPS As Long
Dim CP As Long
'ALLENDは全製品集合の最終行。CPSはペーストし始める行
ALLEND = Worksheets("全製品集合").Cells(Rows.Count, 2).End(xlUp).Row
CPS = ALLEND + 1


'↓この部分でエラーが発生しています↓↓
Worksheets("WSN").Select


CP = Worksheets("WSN").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("WSN").Range(Cells(7, 2), Cells(CP, 3)).Select
Selection.Copy
Worksheets("全製品集合").Select
Cells(CPS, 1).Select
ActiveSheet.Paste
copypaste = True
End Function

Answer 1

"WSN"とダブルクォーテーションで括って書くと単なる文字列と扱われます。
つまりWSNと言うシートを参照しようとしてエラーになっています。
引数に渡されたWSN変数を使う場合は、ダブルクォーテーションで括らずにそのまま書きましょう。

Worksheets(WSN).Select

Comments

[riko]

ご回答ありがとうございます。
理解できました。有り難うございます！！

Answer 2

WSNは変数なのでダブルクォーテーションでは囲まず使います。

Worksheets(WSN).Select

Comments

[riko]

ご回答ありがとうございます。
感謝しております！