Sub SaveXfile()
'v2
    Application.EnableEvents = False
    Dim Application_Calculation As Long
    Application_Calculation = Application.Calculation
    Application.Calculation = xlCalculationManual

    Dim wbx As Workbook
    Dim wbi As Workbook
    Set wbx = Workbooks("X.xlsb")
    Dim shb As Worksheet
    Dim shc As Worksheet
    
    Dim sFile As String
    Dim si As String
    Dim ii As Long
    For ii = 1 To 50
        si = Format(ii, "00")
        On Error Resume Next
        Set shb = wbx.Worksheets("АВ" & si)
        Set shc = wbx.Worksheets("АC" & si)
        On Error GoTo 0
        If Not shb Is Nothing Then
            If Not shc Is Nothing Then
                Sheets(Array(shb.Name, shc.Name)).Copy
                Set wbi = ActiveWorkbook
                
                sFile = "D:\Downloads\X" & si & ".xlsb"
                On Error Resume Next
                Kill sFile
                On Error GoTo 0
                wbi.SaveAs Filename:=sFile, FileFormat:=xlExcel12, CreateBackup:=False
                wbi.Close False
            End If
        End If
        Set shb = Nothing
        Set shc = Nothing
    Next
    
    Application.Calculation = Application_Calculation
    Application.EnableEvents = True
End Sub