копировать и вставлять формы и форматы с 1 листа на остальные

Question

Я сталкиваюсь с ошибкой при копировании и вставке фигуры на вкладке "Форматы" в остальные листы в своей книге Excel. Кто-нибудь может помочь мне определить, что пошло не так и как это исправить?

Dim WshSrc As Worksheet
Dim WshTrg As Worksheet
Dim sh As Shape

    On Error Resume Next
    Set WshSrc = ThisWorkbook.Worksheets("Format")
    On Error GoTo 0
    If WshSrc Is Nothing Then
        MsgBox "Cannot find Worksheet 'Format'", vbOKOnly

    End If
    WshSrc.Cells.Copy

    Set sh = WshSrc.Shapes("Rectangle2")

    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
        sh.Name = WshSrc.Name & "_" & sh.Name
        sh.Copy
        WshTrg.Paste
        End If
  Next WshTrg
  Set WshSrc = Nothing