To keep groups separate, you need to duplicate the code with the same
macro using (say) C5- C8 and opposed to C1-C4. There is only one
worksheet_calculate event to play with.

Dim Calculating As Boolean


Private Sub Worksheet_Calculate()
If Calculating = True Then Exit Sub


If Range("C1").Value = True Then
Calculating = True
Range("C2") = True
Range("C3") = True
Range("C4") = True
Calculating = False
Exit Sub
End If

If Range("C2").Value = True Then
Calculating = True
Range("C3") = True
Range("C4") = True
Calculating = False
Exit Sub
End If

If Range("C3").Value = True Then
Calculating = True
Range("C4") = True
Calculating = False
Exit Sub
End If

'second block

If Range("C5").Value = True Then
Calculating = True
Range("C6") = True
Range("C7") = True
Range("C8") = True
Calculating = False
Exit Sub
End If

If Range("C6").Value = True Then
Calculating = True
Range("C7") = True
Range("C8") = True
Calculating = False
Exit Sub
End If

If Range("C7").Value = True Then
Calculating = True
Range("C8") = True
Calculating = False
Exit Sub
End If

'further blocks go here

End Sub


Don't worry about clicking the No button - :) :)


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=533928