كيف اعرف عدد الروق فى ملف اكسل

عجيب ايها الاخوة هذا السؤال من العام الماضي!!!

جرب

Private Sub SheetCount()
MsgBox ThisWorkBook.Sheets.Count & "أوراق عمل موجودة بهذا الملف"
End Sub

أو اجعل قيمة احدى الخلايا تساوي عدد الاوراق...

Private Sub CountSheets()
Rabne("A1") = ThisWorkBook.Sheets.Count
End Sub

أو ضعها في حدث تنشيط ورقة العمل..

Private Sub Worksheet_Activate()
Range("A1") = ThisWorkbook.Sheets.Count
End Sub

تحياتي...وعذرا على تاخير الرد...لعل الاخوة مشغولين..