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

Question 74.8 Excel VBA Borad (掲示板)より Previous Next
こんちには。
このサイトの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
Answer   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
ありがとうございました
やっとできましたぁ。感動! 本当にありがとうございました

 

Excel VBA Macro