Ungrouping Sheets

[Claude]

Hi all
What is the correct syntax to ungroup sheets in a workbook? I want to make
sure that no sheets have been grouped by a previous user of the files I'm
opening (as this causes problems with certain VBA procedures I'm running on
the files). Can't find anything on this in the VBA help file...
Thxs!

[Chip Pearson]

You just have to select one sheet.

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


"Claude" <Claude@discussions.microsoft.com> wrote in message
news:7574F3A3-118F-4DC7-BA21-B3E25D1589C2@microsoft.com...
> Hi all
> What is the correct syntax to ungroup sheets in a workbook? I
> want to make
> sure that no sheets have been grouped by a previous user of the
> files I'm
> opening (as this causes problems with certain VBA procedures
> I'm running on
> the files). Can't find anything on this in the VBA help file...
> Thxs!

[Tom Ogilvy]

Just select any sheet.

Worksheets(1).Select

--
Regards,
Tom Ogilvy


"Claude" <Claude@discussions.microsoft.com> wrote in message
news:7574F3A3-118F-4DC7-BA21-B3E25D1589C2@microsoft.com...
> Hi all
> What is the correct syntax to ungroup sheets in a workbook? I want to make
> sure that no sheets have been grouped by a previous user of the files I'm
> opening (as this causes problems with certain VBA procedures I'm running
on
> the files). Can't find anything on this in the VBA help file...
> Thxs!

[Tom Ogilvy]

Or
Activesheet.Select

--
Regards,
Tom Ogilvy


"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:uXkIVHA2FHA.2132@TK2MSFTNGP15.phx.gbl...
> Just select any sheet.
>
> Worksheets(1).Select
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Claude" <Claude@discussions.microsoft.com> wrote in message
> news:7574F3A3-118F-4DC7-BA21-B3E25D1589C2@microsoft.com...
> > Hi all
> > What is the correct syntax to ungroup sheets in a workbook? I want to
make
> > sure that no sheets have been grouped by a previous user of the files
I'm
> > opening (as this causes problems with certain VBA procedures I'm running
> on
> > the files). Can't find anything on this in the VBA help file...
> > Thxs!
>
>

[Claude]

Thanks!

"Chip Pearson" schrieb:

> You just have to select one sheet.
>
> 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
>
>
> "Claude" <Claude@discussions.microsoft.com> wrote in message
> news:7574F3A3-118F-4DC7-BA21-B3E25D1589C2@microsoft.com...
> > Hi all
> > What is the correct syntax to ungroup sheets in a workbook? I
> > want to make
> > sure that no sheets have been grouped by a previous user of the
> > files I'm
> > opening (as this causes problems with certain VBA procedures
> > I'm running on
> > the files). Can't find anything on this in the VBA help file...
> > Thxs!
>
>
>

[Claude]

Thanks!

"Tom Ogilvy" schrieb:

> Or
> Activesheet.Select
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Tom Ogilvy" <twogilvy@msn.com> wrote in message
> news:uXkIVHA2FHA.2132@TK2MSFTNGP15.phx.gbl...
> > Just select any sheet.
> >
> > Worksheets(1).Select
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> > "Claude" <Claude@discussions.microsoft.com> wrote in message
> > news:7574F3A3-118F-4DC7-BA21-B3E25D1589C2@microsoft.com...
> > > Hi all
> > > What is the correct syntax to ungroup sheets in a workbook? I want to
> make
> > > sure that no sheets have been grouped by a previous user of the files
> I'm
> > > opening (as this causes problems with certain VBA procedures I'm running
> > on
> > > the files). Can't find anything on this in the VBA help file...
> > > Thxs!
> >
> >
>
>
>

[gothic chicken]

Tom Ogilvy never fails! Thanks mate.

"Or
Activesheet.Select

--
Regards,
Tom Ogilvy"

[tiagoalsimao]

For the ones like me who avoid 'Active', activate or select properties (like ActiveWindow, ActiveWorkbook, ActiveSheet or Sheets(1).Select) I sugest using Windows(ThisWorkbook.Name) instead of ActiveWindow.

' Ungroup Sheets
If Windows(ThisWorkbook.Name).SelectedSheets.Count > 1 Then
Windows(ThisWorkbook.Name).SelectedSheets(1).Select
End If

you can use this with Workbook_Open() or Workbook_BeforeSave()

Best regards
Tiago Simão