すぐに役立つエクセルVBAマクロ集 FAQ 「モジュールを開放するマクロ」のAraay関数

　すぐマク　YNxv9cz482

「モジュールを開放するマクロ」の中のAraay関数について？

Ｑuestion 74.8　その他

Excel VBA Borad （掲示板）より

こんちには。
このサイトのContentsのその他の中にあるFAQで「モジュールを開放するマクロは作成できないか」という質問があり、まさしく私も同じことをしたいのですが、 Sheets(Array("AAA", "BBB", "CCC")).Copy の部分のシート名を、その都度枚数が変化する8枚目～最後のシートまでとする方法を教えて下さい。
自分ではその部分を下記のように書いてみたのですが、うまく選択されません。

    シート総数 = ActiveWorkbook.Worksheets.Count
    シート数 = シート総数 - 7
    ReDim シート格納(シート数)
    j = 0
    For i = 8 To シート総数
        j = j + 1
        シート格納(j) = Worksheets(i).Name
    Next
    Worksheets(Array(シート格納)).Copy

Ａnswer　　

2004.12.7　もてもて

こんな感じ？

Sub test()
    Dim myCnt As Integer
    Dim myArray
    myCnt = Worksheets.Count
    If myCnt >= 8 Then
        ReDim myArray(myCnt - 8)
        For i = 8 To myCnt
            myArray(i - 8) = Worksheets(i).Name
        Next i
        Sheets(myArray).Copy
    End If
End Sub

ありがとうございました

やっとできましたぁ。感動！本当にありがとうございました

http://www.happy500z.com/