Ungrouping sheets dependant on range

[Pauljj]

I have a code below which groups all the sheets in the workbook together once a cell is activated. How can i have it that if cells in rows 1 to 15 are selected they become ungrouped?

Private Sub workbook_activate()

Sheets.Select

End Sub

Many thanks

Paul

 

[Peter_SSs]

I have a code below which groups all the sheets in the workbook together once a cell is activated.

Do you mean when any cell in the Workbook is activated?

How can i have it that if cells in rows 1 to 15 are selected they become ungrouped?

Do we have to check for cells selected in rows 1:15 in all the sheets, or a particular sheet, or the active sheet?

 

[Pauljj]

Yes this is for when the workbook is activated.

If someone selects a cell in rows 1 to 15 in sheet 1, then I would need the sheets to be ungrouped, if someone selects a cell on any other row in sheet 1, then the sheets should group

Many thanks
Paul

 

[Peter_SSs]

Try this:

Right click "Sheet 1", choose "View Code" and paste the following code.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_SelectionChange(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)
    <SPAN style="color:#00007F">If</SPAN> Target.Count > 1 <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
    <SPAN style="color:#00007F">If</SPAN> Target.Row > 15 <SPAN style="color:#00007F">Then</SPAN>
        Sheets.Select
    <SPAN style="color:#00007F">Else</SPAN>
        Me.Select
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Pauljj]

This works perfectly, thank you very much