【エクセルVBA】ワークシートを連続コピー・複製

Sub シート連続コピー()

    'コピーするシート名
    Dim シート名 As String
        シート名 = ThisWorkbook.Worksheets("複製ボタン").Range("F10").Value
        
    'コピーするシートがあるかチェック
    Dim ws As Worksheet
    Dim flag As Boolean
    For Each ws In Worksheets
        If ws.Name = シート名 Then flag = True
    Next ws
    
    'コピーするシートが存在すればコピー実行
    If flag = True Then
        '繰り返し用
        Dim i As Long
        'コピーする枚数
        Dim j As Long
            j = Range("F11").Value

        For i = 1 To j
            '新しいエクセルファイルの最後にシートをコピーする
            ThisWorkbook.Worksheets(シート名).Copy _
            After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    
            'シート名は連番をセット
            ActiveSheet.Name = i
        Next
        
    'コピーするシートが無ければメッセージ
    Else
        MsgBox シート名 & " シートがありません"
    End If
        
End Sub