اسم كتاب العمل


اسم كتاب العمل الحالى
MsgBox ThisWorkbook.Name



معرفة اسم كتاب العمل النشط

Sub ActiveWorkbookName()
MsgBox ActiveWorkbook.Name
End Sub



معرفة اسماء كتب العمل المفتوحة

Sub WorkbookName()
MsgBox Workbooks(1).Name
MsgBox Workbooks(2).Name
MsgBox Workbooks(3).Name
End Sub