Bu kodu nasıl daha kısa yapabiliriz

[sdegirmenci]

Merhaba; Aşağıdaki kodu nasıl kısaltarak yazabiliriz. Yardımcı olabilirseniz sevinirim. Hayırlı Ramazanlar diliyorum.

ActiveSheet.Shapes.Range(Array("Button 3183")).Select
Selection.Font.ColorIndex = 56
ActiveSheet.Shapes.Range(Array("Button 3184")).Select
Selection.Font.ColorIndex = 56
ActiveSheet.Shapes.Range(Array("Button 3185")).Select
Selection.Font.ColorIndex = 56
ActiveSheet.Shapes.Range(Array("Button 3186")).Select
Selection.Font.ColorIndex = 56
ActiveSheet.Shapes.Range(Array("Button 3187")).Select
Selection.Font.ColorIndex = 56
ActiveSheet.Shapes.Range(Array("Button 3188")).Select
Selection.Font.ColorIndex = 56
ActiveSheet.Shapes.Range(Array("Button 3189")).Select
Selection.Font.ColorIndex = 56
ActiveSheet.Shapes.Range(Array("Button 3190")).Select
Selection.Font.ColorIndex = 56
ActiveSheet.Shapes.Range(Array("Button 3191")).Select

 

[hamitcan]

Sub NN()
    For i = 3183 To 3191
        ActiveSheet.Shapes("Button " & i).Select
        Selection.Font.ColorIndex = 56
    Next
End Sub

şeklinde deneyin.

 

[sdegirmenci]

Sayın Hamitcan Hocam;
İlginize teşekkür ederim, İstediğim gibi oldu. Hayırlı günler dilerim