Makro çalıştıktan sonra button yinelemeyi iptal etmek

[CaNeR509]

Merhaba arkadaşlar aşağıdaki şekilde bir kod yazdım, butona makro atadım, makronun amacı ilk sayfayı kopyalayıp yeni bir sonuç sayfası oluşturarak sıralama yapmak ancak her makroyu çalıştırdığımda Düğme2, Düğme3 vs diye her bastığımda yeni bir buton ekliyor bunu nasıl engelleyebilirim.

"
Sub Makro1()
'
' Makro1 Makro
'

'
Sheets("MEB").Select
ActiveSheet.Buttons.Add(1081.5, 52.5, 61.5, 40.5).Select
Sheets("MEB").Copy After:=Sheets(3)
Rows("7:7").Select
Sheets("MEB (2)").Select
Sheets("MEB (2)").Name = "Sonuç"
Rows("7:7").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("Sonuç").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sonuç").Sort.SortFields.Add Key:=Range("K7:K32"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sonuç").Sort
.SetRange Range("A7:AMJ32")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
"

 

[Muzaffer Ali]

Merhaba.

ActiveSheet.Buttons.Add(1081.5, 52.5, 61.5, 40.5).Select
satırını silin.

 

[CaNeR509]

Merhaba.

ActiveSheet.Buttons.Add(1081.5, 52.5, 61.5, 40.5).Select
satırını silin.

Düzeldi, çok teşekkür ederim.