Application.ActiveWorkbook (Excel)

Retorna um objeto Workbook que representa a pasta de trabalho na janela ativa a janela na parte superior. Retornará Nothing se não houver janelas abertas ou se a janela Informações ou a janela Área de Transferência for a janela ativa. Somente leitura.

Dim wbActiveWorkbook As Workbook
Set wbActiveWorkbook = ActiveWorkbook