VBAマクロ シート名の抽出

EXCEL内に多数のシートを作成した場合
シートの一覧を抽出しメニューを作成する

'サンプルソース

Private Sub CommandButton1_Click()

Dim objSheet As Object
Dim intLoop As Integer

intLoop = ActiveCell.Row

For Each objSheet In ActiveWorkbook.Sheets
ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column).Value = objSheet.Name
intLoop = intLoop + 1
Next

End Sub

三井住友銀行グループのプロミス