excelde çalışma sayfası içinde sayfa adedini bulmak istiyorum

[scan32]

excelde çalışma sayfası içinde ayrılan ve kullanılmış sayfa adedini bir hücreye nasıl yazdırabilirim. yardımlarınız için terşekkürler . asıl çalışmalarım vb 6 üzerine

 

[Seyit Tiken]

Aşağıdaki kodu butona atayıp deneyiniz.

Sub Düğme1_Tıklat()
[A1] = Sheets.Count
End Sub