السلام عليكم
و لماذا تريد ذلك
ان كائن ورفة العمل يمكن التعامل معه مباشرة برقمه أو باسمه دون إعلان من أي مكان
MsgBox Worksheets(3).Name
MsgBox Worksheets("Sheet3").Name
MsgBox Worksheets("Sheet3").Cells(1, 1)
Sub jj()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name = "ws_mark" Then MsgBox "This is : " & ws.Name Else MsgBox ws.Name & " : Sorry this sheet name is not ws_mark"
Next ws
End Sub