Is there a more efficient way to do this?

[Steve Roberts]

I have a sheet with 28 checkbox controls on it. When a Highlight Changes
Button is selected a Public variable is set to true and any changes made to
the sheet are highlighted. I have a functional bit of code but am wondering
if there is a more efficient way to check for changes in each of the 28
checkboxes without having to enter this code 28 times.

Here is the functional code:

Private Sub CheckBox1_Change()
If blTrackChanges = True Then 'Check Public Variable blTrackChanges
If true then enable Highlight Modifications
CheckBox1.BackColor = &H80C0FF
End If
End Sub

Any ideas would be appreciated.

Thanks

Steve

 

[Bob Phillips]

Put the code in a separate parameter driven macro, like so

Private Sub CheckBox1_Change()
Call CheckAny(CheckBox1)
End Sub

Private Sub CheckAny(cb As MSForms.CheckBox)
If blTrackChanges = True Then 'Check Public Variable blTrackChanges
'If true then enable Highlight Modifications
cb.BackColor = &H80C0FF
End If
End Sub