Shapes Butonların Numaralarını değiştirmek

[kykbt]

Arkadaşlar Merhaba
Aşağıdaki butonların numaralarını değiştirmek istiyorum.

Sub Makro1()
' Makro1 Makro

    ActiveSheet.Shapes("Button 15").Select
    ActiveSheet.Shapes("Button 14").Select
    ActiveSheet.Shapes("Button 18").Select
    ActiveSheet.Shapes("Button 26").Select
End Sub

Örneğin;

Sub Makro1()
' Makro1 Makro

    ActiveSheet.Shapes("Button 1").Select
    ActiveSheet.Shapes("Button 2").Select
    ActiveSheet.Shapes("Button 3").Select
    ActiveSheet.Shapes("Button 4").Select
End Sub

haline getirmek istiyorum. Buton özelliğinden değiştirilmiyor. Nasıl yapmalıyım?
Şimdiden ilginize teşekkür ederim

 

[Asri]

Kod ile değiştirmek için,

  ActiveSheet.Shapes("Button 15").Name = "Buton 1"
  ActiveSheet.Shapes("Button 14").Name = "Buton 2"
  ActiveSheet.Shapes("Button 18").Name = "Buton 3"
  ActiveSheet.Shapes("Button 26").Name = "Buton 4"

El ile değiştirmek için buradan yeni ismi yazdıktan sonra enter ile bitirin.

 

[kykbt]

Asri hocam çok teşekkürler ediyorum.
Kod ile her sayfa da işlem zor oluyordu.
Elle Hücre adı yerinde Değiştirme çok güzel oldu..