JustJoking

Public Sub TestMe()

    Dim ws As Worksheet
    Set ws = Worksheets(2)

    Dim k As Range

    Set k = Range(ws.Cells(1, 1), ws.Cells(2, 2))
    Debug.Print k.Parent.Name

End Sub