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
三井住友銀行グループのプロミス
![](https://s12.j-a-net.jp/gateway/s_image.cgi?a=41132&d=31491&u=)
![](https://s12.j-a-net.jp/gateway/s_image.cgi?a=41132&d=54335&u=)
シートの一覧を抽出しメニューを作成する
'サンプルソース
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