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