Kopírování listu do jiného sešitu a odstranění tlačítka

Příklad:

Workbooks.Open FileName:= "C:\Dokumenty\odstran.xls"
Windows("sešit1").Activate

Sheets("od").Copy After:=Workbooks("odstran.xls").sheets(3)
ActiveSheet.Shapes("CommandButton3").Select
Selection.Delete
Widows("sešit1").Activate
Workbooks("odstran").Close

'zkopíruje list "od" ze sešitu "sešit1" a vloží do sešitu "odstran.xls" za třetí list.
'z listu "od" odstraní tlačítko číslo 3, pak zmaximalizuje "sešit1" a sešit "odstran.xls" zavře.