Window.SelectedSheets (Excel)

Retorna uma coleção Sheets que representa todas as planilhas selecionadas na janela especificada. Somente leitura.

Dim shtsSelectedSheets As Sheets
Set shtsSelectedSheets = ActiveWindow.SelectedSheets