Assign 1 Macro To Mutiple CheckBox Controls

I wrote a macro so that if a checkbox is "true" it will print and if it is "false" then the checkbox will not print. I want to do that on many other checkboxes but with this approach the number of macros will have to be equal to the number of checkboxes. I was wondering if someone here by writing one macro that will do the trick and i can assign to as many checkboxes as i want. my macro is

Sub proPaintRALPEnd()
Application.ScreenUpdating = False
On Error Resume Next
If Range("l78").Value = "True" Then
ActiveSheet.Shapes("Check Box 697").Select
With Selection
.Placement = xlMove
.PrintObject = True
End With
ActiveSheet.Shapes("Text Box 698").Select
With Selection
.Placement = xlMove
.PrintObject = True
End With
Else...............