Hello all,

(Using XL 2002)

How would I test for Grouped Sheets and then ungroup them if they are
grouped.

Thanks for any help anyone can provide,

Conan Kelly

Conan,

Try something like

If ActiveWindow.SelectedSheets.Count 1 Then
ActiveWindow.SelectedSheets(1).Select
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting LLC
www.cpearson.com
(email on the web site)


"Conan Kelly" wrote in message
...
Hello all,

(Using XL 2002)

How would I test for Grouped Sheets and then ungroup them if they are
grouped.

Thanks for any help anyone can provide,

Conan Kelly

Chip,

Thank you for your help,

Conan




"Chip Pearson" wrote in message
...
Conan,

Try something like

If ActiveWindow.SelectedSheets.Count 1 Then
ActiveWindow.SelectedSheets(1).Select
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting LLC
www.cpearson.com
(email on the web site)


"Conan Kelly" wrote in message
...
Hello all,

(Using XL 2002)

How would I test for Grouped Sheets and then ungroup them if they are
grouped.

Thanks for any help anyone can provide,

Conan Kelly

One possibility:

If ActiveWindow.SelectedSheets.Count 1 Then ActiveSheet.Select

Or just:

ActiveSheet.Select
__________________________________________________ ______________________



"Conan Kelly" wrote in message
...
Hello all,

(Using XL 2002)

How would I test for Grouped Sheets and then ungroup them if they are
grouped.

Thanks for any help anyone can provide,

Conan Kelly

Vasant,

Thank you for your help,

Conan




"Vasant Nanavati" <vasantn AT aol DOT com wrote in message
...
One possibility:

If ActiveWindow.SelectedSheets.Count 1 Then ActiveSheet.Select

Or just:

ActiveSheet.Select
__________________________________________________ ______________________



"Conan Kelly" wrote in message
...
Hello all,

(Using XL 2002)

How would I test for Grouped Sheets and then ungroup them if they are
grouped.

Thanks for any help anyone can provide,

Conan Kelly