Предполагая, что WBset является объектом рабочей книги, вам необходимо удалить путь к файлу из команды, чтобы он выглядел следующим образом. Файл должен быть открыт, так как книги являются коллекцией открытых объектов книги.
Set WBset = Workbooks("PK18 - Unformatted.xls").Worksheets("PK18 - Unformatted")