مطلوب: رقم ورقة العمل

[أزهر]

السلام عليكم

لدي ملف به أكثر من ورقة عمل أريد أن يعطيني رقم ورقة العمل في كل منها أوتوماتيكياً

 

[شوقي ربيع]

السلام عليكم

ضع هذا الكود في ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    MsgBox Sh.Name
End Sub