fitzrandolph
New Member
- Joined
- Sep 5, 2002
- Messages
- 24
Howdy.
This is a wonderful website here. I was wondering if somebody could assist me in this quandry I am in. Please forgive me, I am pretty new to this.
I have this CheckBox (actually have many). I would like to Bold the text in the cell that the CheckBox lives in. The only way I have been able to do it is through ActiveCell. This is a major pain in the butt since I must keep selecting new cells, then click on their CheckBox. Is there a way I can simply check the box without first selecting the cell?
Is my problem that my CheckBox is not "in" the cell and that is why I need to first select the cell?
Here is what I have come up with that works accept for the really annoying part of first clicking on the cell -
Private Sub CheckBox16_Click()
If CheckBox16.Value Then
ActiveCell.Font.Bold = True
ActiveCell.Font.ColorIndex = 3
Else
ActiveCell.Font.Bold = False
ActiveCell.Font.ColorIndex = 1
End If
End Sub
Many thanks!
-- Fitz
This is a wonderful website here. I was wondering if somebody could assist me in this quandry I am in. Please forgive me, I am pretty new to this.
I have this CheckBox (actually have many). I would like to Bold the text in the cell that the CheckBox lives in. The only way I have been able to do it is through ActiveCell. This is a major pain in the butt since I must keep selecting new cells, then click on their CheckBox. Is there a way I can simply check the box without first selecting the cell?
Is my problem that my CheckBox is not "in" the cell and that is why I need to first select the cell?
Here is what I have come up with that works accept for the really annoying part of first clicking on the cell -
Private Sub CheckBox16_Click()
If CheckBox16.Value Then
ActiveCell.Font.Bold = True
ActiveCell.Font.ColorIndex = 3
Else
ActiveCell.Font.Bold = False
ActiveCell.Font.ColorIndex = 1
End If
End Sub
Many thanks!
-- Fitz