Excel VisualBasic Script

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