Sub name()
    Dim cell1 As Integer
    Dim cell2 As Integer
    Set cell1 = 10
    Set cell2 = 6
    Dim text1 As String
    Dim text2 As String
    Dim rename1 As Integer
    Set rename1 = 0
    Dim rename2 As Integer
    Set rename2 = 0
    Do
        Set text1 = Workbooks("РАСЧЕТ КВАРТИРЫ -Корпус N сек1.xlsm").Worksheets("ЛИМИТКА КNС1").Cells(2, cell1).Value
        Set cell2 = 6
        Set rename2 = 0
        Do
            Set text2 = Workbooks("Материалы.xlsx").Worksheets("ЛИМИТКА К2С1").Cells(2, cell2).Value
            If text1 = text2 Then
                Set rename2 = 1
            End If
            Set cell2 = cell2 + 1
        Loop While Len(text2) > 0
        If rename2 = 0 Then
            Set rename1 = rename1 + 1
        End If
        Set cell1 = cell1 + 1
    Loop While Len(text1) > 0
    MsgBox (CStr(rename1))
End Sub