ワークシートを変数化する3つの手法 オブジェクト変数など

Sub シートの変数化1()
    Dim S1 As Worksheet
        Set S1 = Worksheets("Sheet1")
        S1.Range("B3") = "あいうえお"
End Sub

Sub シートの変数化2()
    Dim i As Integer
        i = 2
        MsgBox "インデックス番号2のシート名　" & Worksheets(i).Name
End Sub

Sub シートの変数化3()
    Dim ShN As String
        ShN = "Sheet3"
        Worksheets(ShN).Cells(3, 3).Value = "かきくけこ"
End Sub

Sub シートの変数化4()
    Dim NSheet As Worksheet
    Dim 年月日, 時刻 As String
    Dim R As Long
        Worksheets.Add After:=Worksheets(Worksheets.Count)
        Set NSheet = ActiveSheet
        年月日 = Format(Date, "yymmdd")
        時刻 = Format(Now, "hhnn")
        NSheet.Name = 年月日 & "_" & 時刻
        With Worksheets("Sheet1")
            .Cells(1, 1) = "操作ログ"
            R = .Cells(Rows.Count, 1).End(xlUp).Row
            .Cells(R + 1, 1) = NSheet.Name
        End With
End Sub

Sub シートの変数化4改()
    Dim NSheet() As Worksheet
    Dim 年月日, 時刻 As String
    Dim R, t As Long
    ReDim NSheet(3)
        For t = 1 To 3
            Worksheets.Add after:=Worksheets(Worksheets.Count)
            Set NSheet(t) = ActiveSheet
            年月日 = Format(Date, "yymmdd")
            時刻 = Format(Now, "hhnn")
            NSheet(t).Name = 年月日 & "_" & 時刻 & "-" & t
            With Worksheets("Sheet1")
                .Cells(1, 1) = "操作ログ"
                R = .Cells(Rows.Count, 1).End(xlUp).Row
                .Cells(R + 1, 1) = NSheet(t).Name
            End With
        Next t
        NSheet(2).Cells(5, 5) = "終了しました！"
End Sub

Sub シートの変数化5()
    Dim s As Long
        Application.DisplayAlerts = False
        For s = Worksheets.Count To 1 Step -1
            If Worksheets(s).Name <> "Sheet1" Then
                Worksheets(s).Delete
            End If
        Next s
        Application.DisplayAlerts = True
End Sub

Sub シートの変数化6()
    Dim ShName As Variant
        ShName = Application.InputBox("シート名を入力してください。", _
                            Title:="シート名設定", Type:=2)
    Dim Flag As Boolean
    Dim ws As Worksheet
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name = ShName Then
                Flag = True
                MsgBox "同名のシートがあります。"
                Exit Sub
            End If
        Next
        Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = ShName
End Sub