【マクロ】シートの変数へ入れるコードがエラーとなるのはなぜでしょうか？

以下、コードにて、３つのシートを変数に入れるようとすると
エラーとなります

改善方法ご存じの方は、教えてください

【シート名３つ】
シート名は　あ　い　う


【エラーとなるコード】
Set ws = ThisWorkbook.Sheets("sheetNames(i)")


【コード】
Sub 転記先()

Dim ws As Worksheet

Dim sheetNames As Variant

Dim i As Long

sheetNames = Array("あ", "い", "う")

For i = LBound(sheetNames) To UBound(sheetNames)

Set ws = ThisWorkbook.Sheets("sheetNames(i)")

No.1 回答者： fujillin 回答日時： 2025/04/27 16:04

こんにちは

＞Set ws = ThisWorkbook.Sheets("sheetNames(i)")
指定しているのは「sheetNames(i)」という名称のシートになります。

そうではなくて、変数（＝配列）に格納されている名称で指定したいのではないでしょうか？
もしそうなら、右辺を
　ThisWorkbook.Sheets(sheetNames(i))
とすれば良いでしょう。

ただし、対応するシートが実際には存在しない場合は、エラーになります。

この回答へのお礼

いつもありがとうございます
変数なので、""はいらなかったです
うまくいきました。ご指摘ありがとうございます。

お礼日時：2025/04/27 18:47