VBA

'-------------------------------------------

Dim i&

Dim WS As Worksheet

Dim 貼付シート名 As Variant

貼付シート名 = Array("", _
"1", _
"2", _
"3", _
"4")

For i = 1 To UBound(貼付シート名)

Set WS = Sheets("1") これだったらOK
'Set WS = Sheets(貼付シート名(i)) これだとエラー

WS.Range(Range("A1"), Cells(Rows.Count, 1).End(xlDown)).Clear

Next i

'-------------------------------------------

Variant型からワークシートの選択をしたいのですが、上記VBAではエラーになってしまいます。

これでエラーになる原因を求められるスキルがないため、困っています。

もし原因が分かる方がいらっしゃいましたら、教えていただきたく存じます。