Window.ActiveSheet (Excel)

Retorna um objeto que representa a planilha ativa a planilha na parte superior na pasta de trabalho ativa ou na janela ou pasta de trabalho especificada. Retorna Nothing se nenhuma planilha estiver ativa.

Se você não especificar um qualificador de objeto, esta propriedade retornará a planilha ativa na pasta de trabalho ativa. Se uma pasta de trabalho aparecer em mais de uma janela, a propriedade ActiveSheet poderá ser diferente em janelas diferentes.

Dim wsActiveSheet As Worksheet
Set wsActiveSheet = ActiveWindow.ActiveSheet