Mega Code Archive
Using the Parent Property to Obtain a Reference to an Objects Parent Object
Sub MeetMySingleParent()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
' Please meet my parent - Mrs. Workbook
Debug.Print ws.Parent.Name
Set ws = Nothing
End Sub