Window.SelectedSheets (Excel)

Returns a Sheets collection that represents all the selected sheets in the specified window.

Dim shtsSelectedSheets As Sheets
Set shtsSelectedSheets = ActiveWindow.SelectedSheets