vba ile belirli sayfaları silme

[kalibre101]

merhabalar çalışma kitabımdaki ilk 3 sayfa haricindeki sayfaları silmek istiyorum yardımcı olusanız sevinirim

 

[Ömer]

Merhaba,

Deneyiniz.

Sub sil()
    Dim i As Integer
    For i = Worksheets.Count To 4 Step -1
        Sheets(i).Delete
    Next i
End Sub

 

[kalibre101]

Merhaba,

Deneyiniz.

Sub sil()
    Dim i As Integer
    For i = Worksheets.Count To 4 Step -1
        Sheets(i).Delete
    Next i
End Sub

teşekkür ederim oldu