Son sayfayı buldurmak

[inFiesta]

Merhabalar,

Elimde başka bir programla üretilmiş excel raporları var. Raporun Sheet1,Sheet2.... şeklinde üretilmiş sayfaları mevcut. Kimi raporlarda Sheet250lere kadar gidiyor. Ben yazdığım makroyu döngüye sokuyorum. Fakat bu döngüdeki son sayfayı manuel olarak(for i 1 to 250 gibi) girmek durumundayım.
Son sayfanın adını, ya da excel belgesinin kaç sayfa olduğunu bulabilmemin bir yolu var mıdır?

Saygılar, iyi çalışmalar...

 

[uzmanamele]

merhaba

bunu deneyiniz

For i = 1 To Worksheets.Count

not:
bu mesaj benim 4.000'inci mesajımmış.
sonradan farkettim, not düşeyim dedim

 

[Kemal Demir]

sonsayfa=Sheets.Count
sonsayfaismi=Sheets(sonsayfa).name
For x=1 to sonsayfa
Sheets(x).select
.
.
.
.
next

 

[inFiesta]

Çok teşekkür ediyorum. Her ikisi de işimi görür. İyi çalışmalar.