code adjustment

[Anthony G.]

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

 

[Mark O'Brien]

Yup:

<pre>
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:D20")) Is Nothing Then Exit Sub
With Target
.Font.Bold = True
.Font.Italic = True
With .Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End With
End Sub </pre>

HTH

 

[Anthony G.]

Worked like a charm Mark...........Thanks!!!

Anthony