Вы уверены, что рабочая таблица называется "ThisWorkbook"? ThisWorkbook - это ссылка, которая используется для ссылки на рабочую книгу, в которой находится модуль кода. При вставке листа он будет называться «Рабочий лист в презентации1» или аналогичный.
Для сохранения файла вы можете использовать следующее в модуле кода Excel (Alt + F11, когда рабочий лист активен)
ThisWorkbook.SaveAs Filename:="mypath\myfilename.xls"