Application.ActiveWorkbook (Excel)

Devuelve un objeto Workbook que representa el libro de la ventana activa (la ventana superior).

Dim wbActiveWorkbook As Workbook
Set wbActiveWorkbook = ActiveWorkbook