新しいシートを挿入してシート名一覧を書き込むVBA

Sub 新しいシートを挿入してシート名一覧を書き込む() Dim newSheet As Worksheet Set newSheet = ThisWorkbook.Sheets.Add(Before:=ThisWorkbook.Sheets(1)) newSheet.Activate Dim activeSheetName As String activeSheetName = ActiveSheet.Name Dim ws As Worksheet Dim targetColumn As Range Set targetColumn = ThisWorkbook.Sheets(1).Range("B1") For Each ws In ThisWorkbook.Sheets If ws.Name <> activeSheetName Then targetColumn.Value = ws.Name Set targetColumn = targetColumn.Offset(1, 0) End If Next ws End Sub