ワークシートの名前を取得｜エクセルＶＢＡ
アクティブなブックのシート名をアクティブシートのA列に書き出します。
【例1】アクティブなブックのシート名をA1以降に書き出します。
Sub rei15_01_1()
Dim Sh As Object
Dim myCnt As Integer
For Each Sh In ActiveWorkbook.Sheets
myCnt = myCnt + 1
Range(“A” & myCnt).Value = Sh.Name
Next Sh
End Sub
アクティブなブックのシート名を変更します。
【例2】Sheet2のシート名を印刷用に変更します。
Sub rei15_01_2()
ActiveWorkbook.Sheets(“Sheet2″).Name = “印刷用”
End Sub
