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