How to Activate or Deactivate the function - Group using the VBA with Specific Text|VBA & Macros|Excel Forum|My Online Training Hub

are you saying the red button is not ungrouping?

I had a quick look at your code and i think there might be 2 problems.

1) you had the if then exit sub on 1 line, therefore the code was finding the first false and just exiting the code
2) you had the first line as on error goto finish, so any error would just exit the sub

Rather check if any cells are false to turn off the grouping could you just turn them all off as a default? if you use On Error Resume Next the code will continue until complete 

Something like the below? this also unchecks all the check boxes

Sub Ripristina2()

On Error Resume Next

Range("Tabella1[[Week 1]:[Week 7]]").Select
Foglio1.Range("C9:I15").Select
Selection.Columns.Ungroup

Range("Tabella1[[Week 8]:[Week 14]]").Select
Foglio1.Range("J9:P15").Select
Selection.Columns.Ungroup

Range("Tabella1[[Week 15]:[Week 21]]").Select
Foglio1.Range("Q9:W15").Select
Selection.Columns.Ungroup

With ActiveSheet
.Shapes("Check Box 3").ControlFormat.Value = False
.Shapes("Check Box 1").ControlFormat.Value = False
.Shapes("Check Box 2").ControlFormat.Value = False
End With

'Foglio1.Range("A1").Select
On Error GoTo 0

End Sub