JustJoking2

Public Sub TestMe()

    Dim ws As Worksheet
    Worksheets(1).Activate
    Set ws = Worksheets(2)

    Dim i As Range
    Dim j As Range

    Set i = ws.Range("A1").CurrentRegion
    Set j = Range(i, i.End(xlDown))
    Debug.Print j.Parent.Name

End Sub