Сравнить значения ячеек в разных файлах

sub макрос1()
dim x_new as integer
dim y_new as integer 'эти четыре переменные вмещающие целые числа до 32 тысяч с хвостиком
dim x_old as integer   'нужны для ориентации по листам как по координатам x и y
dim y_old as integer
 
 
dim old_value as string  'сюда сложатся значение ячейки старого листа
dim new_value as string 'сюда значение ячейки нового листа
 
 
Windows("New_LIST.xlsx").sheets("Лист1").select 'активизируем новый лист
 
x_new=activecell.column 'определим из какой ячейки будем брать данные ( сейчас из той, которая выделена)
y_new=activecell.row
 
Windows("OLD_LIST.xlsx").sheets("Лист1"). 'переключимся на следующий лист
 
x_old=activecell.column 'определим из какой ячейки будем брать данные ( сейчас из той, которая выделена)
y_old=activecell.row
 
 
 
 
'       это твой старый документ       это лист в нём        это в нём ячейка н.р. A1(или 1,1 если в координатах)
' напиши тут как он называется    тут название листа
'                               V                             v                            v
old_value = Windows("OLD_LIST.xlsx").sheets("Лист1").cells(y_old,x_old) 'загружаем значения ячеек
 
 
Windows("New_LIST.xlsx").sheets("Лист1").select
 
'       это твой новый документ       это лист в нём        это в нём ячейка н.р В2(или 2,2 если в координатах)
' напиши тут как он называется    тут название листа
'                               V                             v                            v
new_value= Windows("New_LIST.xlsx").sheets("Лист1").cells(y_new,x_new)
 
 
 
 
 
 
 
if old_value <> new_value then goto Neravn 'сравниваем ячейки, если не равны то идём на метку Neravn
 
'''''''''''''''здесь надо написать действие если ячейки равны''''''''''''''''''''''''''''
MsgBox ("Ячейки равны")'например окошко покажет тебе эту надпись
goto exitt
 
'''''''''''''''''''здесь написать если ячейки не равны'''''''''''''''''''''''''''''''''''''''''''''''''''
Neravn:
MsgBox ("Ячейки равны")'здесь тоже покажет надпись
 
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
exitt:
end sub