Makro ile sayfa adlarını değiştirme

[ozanboraozan]

Sub Dikdörtgen_Tıklat()
'
' Dikdörtgen_Tıklat Makro
'

'
Sheets("M1 (1)").Select
Sheets("M1 (1)").Name = "M1"
Sheets("M1 (2)").Select
Sheets("M1 (2)").Name = "M2"
Sheets("M1 (3)").Select
Sheets("M1 (3)").Name = "M3"
End Sub

yukarıda yapılan işlemin devamını (M 3 > M1000) sağlamak için pratik bir yol varmıdır?

 

[Orion1]

Buyurun.

For i = 3 To 1000
    Sheets(i).Name = "M" & i
Next

 

[ozanboraozan]

teşekkürler