Workbook.ActiveSheet (Excel)
Retorna um objeto Worksheet que representa a planilha ativa a planilha na parte de cima na pasta de trabalho ativa ou pasta de trabalho especificada. Retorna Nothing se nenhuma planilha estiver ativa.
O uso da propriedade ActiveSheet sem um qualificador de objeto retorna a planilha ativa na pasta de trabalho ativa na janela ativa. Se uma pasta de trabalho aparecer em mais de uma janela, a planilha ativa pode ficar em janelas diferentes.
Dim wsActiveSheet As Worksheet
Set wsActiveSheet = ActiveWorkbook.ActiveSheet