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


--
HTH

Bob Phillips

"Steve Roberts" wrote in message
...
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