Sheets(Array("НужныйЛист", "НужныйЛистТоже")).Copy
ActiveWorkbook.SaveAs [C11], FileFormat:=51

ActiveWorkbook.SaveAs range("c11") & "_v." & range("c12"), FileFormat:=51

Option Explicit

Sub Макрос2()
    Dim SuffixVersion As Long

    Dim filePath    As String
    filePath = ThisWorkbook.Worksheets("НужныйЛист").Range("C11").Value

    Dim maxVersions As Long
    maxVersions = 3

    Dim newFileName As String
    newFileName = filePath & " v.1.xlsx"

    While IsWorkbookOpen(newFileName) And SuffixVersion < maxVersions
        SuffixVersion = SuffixVersion + 1
        newFileName = filePath & " v." & SuffixVersion & ".xlsx"
    Wend

    If SuffixVersion = maxVersions And IsWorkbookOpen(newFileName) Then
        MsgBox "Достигнуто максимальное число версий. Файл не был сохранен.", vbExclamation
        Exit Sub
    End If

    Sheets(Array("НужныйЛист", "НужныйЛистТоже")).Copy
    ActiveWorkbook.SaveAs newFileName, FileFormat:=51
End Sub

Function IsWorkbookOpen(wbName As String) As Boolean
    On Error Resume Next
    IsWorkbookOpen = Not (Workbooks(wbName) Is Nothing)
    On Error GoTo 0
End Function