Ok problem solved

xlWB.Sheets("existingSheet").Shapes("CommandButton1").Cut