Propriedade ActiveSheet

Retorna um objeto que representa a planilha ativa na Pasta de Trabalho especificada. Retorna Nothing se nenhuma planilha estiver ativa. Somente leitura. Use ActiveSheetIndex ou Activate para definir a planilha ativa

Workbook.ActiveSheet.Name := 'NewName';