Dim ProtocolBook As Workbook, EtalonBook As Workbook 'Dim ProtocolSheet As String, EtalonSheet As String 'название листа в файле с протоколомDim i As Integer, j As Integer, k As Integer 'временные переменныеDim WordMassive() 'массив слов типа stringDim PointerIndex As Integer, CountIndex As Integer, RowStep As Integer 'указатель и длина массива
EtalonBook.Close savechanges:=False