シート操作

シート選択

Sub ProcedureName()
    Dim sheet As Worksheet

    ' シート名で指定
    Set sheet = Worksheets("Sheet2")

    ' インデックスで指定
    Set sheet = Worksheets(2)

    ' オブジェクト名で指定
    Set sheet = Sheet2
End Sub

---

シート名を変更

Sub ProcedureName()
    Dim sheet As Worksheet
    Set sheet = Worksheets("Sheet2")

    sheet.Name = "Sheet3"
End Sub

---

シートを追加

Sub ProcedureName()
    ' シートを追加
    WorkSheets.Add()

    ' シートを追加し、変数に格納
    Dim sheet As Worksheet
    Set sheet = WorkSheet.Add()

    ' 場所を指定してシートを追加
    Worksheets.Add after:= Worksheets(Worksheets.Count)
End Sub

シートを削除

Sub ProcedureName()
    Dim sheet As Worksheet
    Set sheet = Worksheets("Sheet2")

    sheet.Delete = "Sheet3"
End Sub