Detecting multiple sheet selection

[mikerickson]

If the user selects more than one sheet, how can that be detected? And which sheets have they selected.

I've tried Selection (it is a Shape or a Range), ActiveSheet only returns one of the sheets.

 

[Darren Bartrup]

Something along the lines of:

Sub SheetSelection()

    Dim Sht As Variant
    
    For Each Sht In ThisWorkbook.Windows("Book2.xlsx").SelectedSheets
        Debug.Print Sht.Name
    Next Sht

End Sub

 

[Peter_SSs]

Possibly something like this.

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> CheckForGroupedSheets()<br>    <SPAN style="color:#00007F">Dim</SPAN> x <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Worksheet<br>    <SPAN style="color:#00007F">Dim</SPAN> wsList <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br><br>    x = ActiveWindow.SelectedSheets.Count<br>    <SPAN style="color:#00007F">If</SPAN> x > 1 <SPAN style="color:#00007F">Then</SPAN><br>        <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> ws <SPAN style="color:#00007F">In</SPAN> ActiveWindow.SelectedSheets<br>            wsList = wsList & vbLf & ws.Name<br>        <SPAN style="color:#00007F">Next</SPAN> ws<br>        MsgBox "Sheets selected:" & wsList<br>    <SPAN style="color:#00007F">Else</SPAN><br>        MsgBox "Only 1 sheet selected"<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[mikerickson]

OH... SelectedSheets is a property of a Window, not the workbook..

Thank you!