アクティブなブックのシート名をアクティブシートの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

>文書作成代行
>パソコン企業研修
>パソコン教室
>パソコン教室久喜市 
>パソコンの家庭教師BEST