Excel VBA シート名一覧を表示する

最初にソースコードです。 コードSub Sheets_List() Dim Num As Integer Dim arr() As String Dim i As Integer Num = Worksheets.Count ReDim arr(Num - 1) For i = 1 To Num arr(i - 1) = Worksheets(i).Name Next i MsgBox J