too much code

Sub Check2()
Range("B22").Font.Bold = Range("A22").Value
End Sub


--

HTH

RP

"JCanyoneer" wrote in message
...
Here's what I found that worked:
Sub Check2()
Range("A22").Select
If ActiveCell.Value = "True" Then
Range("B22").Select
Selection.Font.Bold = True
Else
Range("B22").Select
Selection.Font.Bold = False
End If
End Sub

"JCanyoneer" wrote:

This is probably simple but I cannot figure out the syntax. I have a few
checkboxes on a sheet that I would like to have run a macro that would
bold
or unbold based on the value of the checkbox or its cell reference. I'm
not
sure if there is a better way than a macro or not.