Это сработало, только когда я преобразовал USERFORM (код и дизайн) в форму ActiveX (рабочий лист).
Единственное, что можно изменить с (ME.Object Name) на (Thisworkbook.worksheets ("Name") .ObjectName)
Это заняло некоторое время, но наконец сработало.