Как мне вставить объект с назначенным ему макросом

Question

Я собираюсь скопировать и вставить форматирование листа на все остальные листы (кроме листов, называемых основанием и форматом).Хотя я могу копировать и вставлять форматирование, я не могу вставить фигуру, которой назначен макрос.

    For Each WshTrg In ThisWorkbook.Worksheets
      If WshTrg.Name <> "Base" And WshTrg.Name <> "Format" Then
        WshTrg.Cells.PasteSpecial xlPasteFormats
        WshTrg.Cells.PasteSpecial xlPasteColumnWidths
        WshTrg.Cells.PasteSpecial xlPasteFormulasAndNumberFormats
        WshTrg.Cells.PasteSpecial xlPasteAll
      End If
  Next WshTrg

Существует объект, которому назначен макрос, который не копируется.Как мне это скопировать?