Ken Wright provides a ditty in this thread.

http://www.google.com/groups?hl=en&l...a1fc2d&rnum=38

Sub CountSelected()

Dim sc As Long
Dim sh As Worksheet

sc = 0
For Each sh In ActiveWorkbook.Windows(1).SelectedSheets
sc = sc + 1
Next sh
MsgBox sc

End Sub

HTH
Paul
--------------------------------------------------------------------------------------------------------------
Be advised to back up your WorkBook before attempting to make changes.
--------------------------------------------------------------------------------------------------------------
Is there a standard way to detect whether more than one sheet is selected in
a workbook?

There doesn't seem to be a Worksheets(x).Selected property, which would
allow me to flip through the workbook and see whether a group of sheets is
selected rather than a single one.

What I'm doing now is this:

If Right(Application.Caption, 7) = "[Group]" Then

which is kludgy and may be dangerous.

There must be a better way to do this, but I can't seem to find it.

-Tim Aurthur