Range.Worksheet (Excel)

Devuelve un objeto Worksheet que representa la hoja de cálculo que contiene el rango especificado. 


Dim wsWorksheet As Worksheet
Set wsWorksheet = ActiveCell.Worksheet