Range.Worksheet (Excel)

Returns a Worksheet object that represents the worksheet containing the specified range. 


Dim wsWorksheet As Worksheet
Set wsWorksheet = ActiveCell.Worksheet