末尾が連番になるファイル名を生成

Sub prcAddSequenceToFileNamesWithConfirmation()
    Dim strBase As String
    Dim lngLastRow As Long
    Dim i As Long
    Dim intResponse As Integer
    
    ' E2セルから基本となるファイル名を取得
    strBase = Range("E2").Value
    
    ' A列の最終行を基に、連番出力の最終行を判定
    lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' データ行数が10行以上あるか確認
    If lngLastRow >= 11 Then
        intResponse = MsgBox("データ数が10行以上あります。元ファイル名は正常に並んでいますか？", vbYesNo + vbQuestion, "データ行数の確認")
        If intResponse = vbNo Then
            MsgBox "処理を中止します。", vbExclamation, "中止"
            Exit Sub
        End If
    End If
    
    ' E列に基本ファイル名から連番を開始
    For i = 2 To lngLastRow
        ' E列のi行目に、基本ファイル名にハイフンと2桁の連番を付加
        Cells(i, 5).Value = strBase & "-" & Format(i - 1, "00")
    Next i
End Sub