ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Testing for and ungrouping grouped sheets (https://www.excelbanter.com/excel-programming/391428-testing-ungrouping-grouped-sheets.html)

Conan Kelly

Testing for and ungrouping grouped sheets
 
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 Pearson

Testing for and ungrouping grouped sheets
 
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



Vasant Nanavati

Testing for and ungrouping grouped sheets
 
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




Conan Kelly

Testing for and ungrouping grouped sheets
 
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






Conan Kelly

Testing for and ungrouping grouped sheets
 
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






All times are GMT +1. The time now is 09:09 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com