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:

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 

HTH

[Anthony G.]

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

Anthony