Открытие и сохранение книги по адресам и названиям в ячейках

[lovko]

Здравствуйте! На свой вопрос на сайте смог найти косвенную информацию, которую воедино (в макрос) собрать, к сожалению, не удалось. Подскажите, пожалуйста, макрос, который открывал бы книгу, путь к которой написан в ячейке А2 , а название в ячейке В2 и сохранял ее по адресу, указанному в ячейке С2 под тем же именем, как в B2. Все ячейки находятся в Лист1. Сама же книга, из которой я запускаю этот макрос, пересохранялась по пути: C:\Users\Users\OneDrive и удалялась из папки: C:\Users\Users\OneDrive\Архив, в которой она находится.
Большое спасибо!

[lovko]

Хороший сайт. Вот и я кое-чему здесь научился. Сам нашел ответ на свой вопрос.

Код Выделить Развернуть

Sub Пересохранение()
Set A = Sheets("Лист1").[A2]
Set B = Sheets("Лист1").[B2]
Set C = Sheets("Лист1").[C2]
On Error GoTo s
Workbooks.Open A.Value & B.Value & ".xlsm"
On Error GoTo s1
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=C.Value & B.Value & ".xlsm", FileFormat:=52
Application.DisplayAlerts = True
ActiveWorkbook.Save
ActiveWindow.Close
Exit Sub
s:
MsgBox "Неверный путь файла."
s1:
MsgBox "Неверный путь сохранения."
End Sub