Check One CheckBox To Select All

I am trying to write a macro for an option button, that when selected it checks to see if another option button is selected then continues to automatically change the value of 5 other option button within in 5 other group boxes

Sub SetFilter()
'check to see if filtering is required
If Sheet1.Shapes("Option Button 54").value = True Then
'set non-specific filtering
Sheet1.Shapes("Option Button 28").Value = xlOn
Sheet1.Shapes("Option Button 38").Value = xlOn
Sheet1.Shapes("Option Button 44").Value = xlOn
Sheet1.Shapes("Option Button 52").Value = xlOn
End If
End Sub