написал: WorkBooks.Open Filename:=ThisWorkbook.Path & z .xlsm
у Вас тут ошибка, правильно Workbooks.Open
Код
Dim z As Range
Dim wb As Workbook
Set z = ThisWorkbook.Worksheets("Лист2").Range("A3")
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & z.Value & ".xlsm")
'Для закрытия файла с сохранением изменений
wb.Close SaveChanges:=True
'Для закрытия файла без сохранения изменений
'wb.Close SaveChanges:=False
написал: переделать свою таблицу в Google Sheets и сделать обмен данными через код, муторно, но разобрался
В них можно просто загрузить файл xls, xlsx и он сохранит все расчеты и формулы, которые были в книге, остается только проверить. Так что в следующий раз просто перетаскивайте А если поставить в настройках галочку, чтобы переделывал файл в свой формат, так еще и место занимать не будет (или минимально).