Kodlarda hata

[1903emre34@gmail.com]

Merhaba,

Aşağıdaki kod aracılığıyla, karışık sayfaları (Sayfa1,Sayfa2) küçükten büyüğe doğru düzene sokmak istiyorum, ama hata veriyor.

Sub sayfaduzenle()
Dim i As Integer
Dim j As Integer
If Worksheets.Count = 1 Then Exit Sub
For j = i + 1 To Worksheets.Count
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
End Sub

 

[PLİNT]

Merhaba
Eksik satırdandır

Sub sayfaduzenle()
Dim i As Integer
Dim j As Integer
If Worksheets.Count = 1 Then Exit Sub
[COLOR="Red"]For i = 1 To Worksheets.Count[/COLOR]
For j = i + 1 To Worksheets.Count
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
End Sub

 

[1903emre34@gmail.com]

Teşekkürler, kodlar çalıştı.