كود لاستخراج عدد اوراق العمل بالملف

[قنديل الصياد]

مرفق كود لاستخراج عدد أوراق العمل بالملف

Private Sub SheetCount()
MsgBox ThisWorkBook.Sheets.Count & "أوراق عمل موجودة بهذا الملف"
MsgBox "مع تحياتى / قنديل الصياد"

End Sub