Anthony G.
Active Member
- Joined
- Mar 24, 2002
- Messages
- 465
Tom was kind enough to post a code, which works quite well. I would now like to make the following adjustments: Bold Italic and to have the cell highlighted in light yellow. Here's the code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:D20")) Is Nothing Then Exit Sub
Target.Font.FontStyle = "Bold"
End Sub
Can this be done?
Thanks Again,
Anthony
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:D20")) Is Nothing Then Exit Sub
Target.Font.FontStyle = "Bold"
End Sub
Can this be done?
Thanks Again,
Anthony