Window.ActiveSheet (Excel)

Devuelve un objeto que representa la hoja activa (la hoja de la parte superior) en el libro activo o en la ventana o libro especificados. Devuelve Nothing si no hay ninguna hoja activa.

Si no se especifica un calificador de objeto, esta propiedad devuelve la hoja activa del libro activo. Si un libro aparece en más de una ventana, es posible que la propiedad ActiveSheet tenga un valor diferente en cada ventana.

Dim wsActiveSheet As Worksheet
Set wsActiveSheet = ActiveWindow.ActiveSheet