Using the Parent Property to Obtain a Reference to an Object's 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