Workbook.ActiveSheet (Excel)
Devuelve un objeto Worksheet que representa la hoja activa (la hoja de la parte superior) del libro activo o del libro especificado. Devuelve Nothing si no hay ninguna hoja activa.
Si se usa la propiedad ActiveSheet sin un calificador de objeto, se devuelve la hoja activa del libro activo de la ventana activa. Si un libro aparece en más de una ventana, la hoja activa podría ser diferente en ventanas diferentes.
Dim wsActiveSheet As Worksheet
Set wsActiveSheet = ActiveWorkbook.ActiveSheet