Visual Basic For Applications Tips

ワークシート名の変更

ブックを指定したい場合は、Workbooks("ブック名").Sheets〜
アクティブなブックを指定したい場合は、ActiveWorkBook.Sheets〜
プロシジャが格納されているブックを指定したい場合、はThisWorkBook.Sheets〜

'Sheet1のシート名を変更
Sub SheetReName1()
　　Sheets("Sheet1").Name = "ReNameSheet1"
End Sub

'１番目のシート名を変更
Sub SheetReName2()
　　Sheets(1).Name = "ReNameSheet1"
End Sub