That looks the way to go. I think this is what you want

Sub Bold()
Dim CaseNum As String
CaseNum = Application.Caller
CaseNum = Right(CaseNum, 2)
Range("B" & CaseNum).Font.Bold = True
End Sub



--

HTH

RP
(remove nothere from the email address if mailing direct)


"JCanyoneer" wrote in message
...
I have a spreadsheet with a few check boxes that have macro attached to
them.
When a check box is checked, a macro runs that makes the font in a
corresponding cell, bold. A cell link is also attached to each check box
to
set a value for anothe cell on the page. I have about 20 of these boxes
and
have listed the code I use to bold the font in the cell:

Sub CheckBox88_Click()
Range("B23").Font.Bold = Range("A23").Value
End Sub

What I would like to do, is make one sub routine that I could use for
every
check box rather that having 20 of these little subs. I cannot figure out
the
syntax or how to do this. Does anyone have any ideas?