Sub Worksheet _Change()

  • Thread starter Thread starter utodc
  • Start date Start date
U

utodc

I have a column range that needs to be overridden from sometimes. Whe
the override is keyed I want to chnage the color and make the entr
BOLD.

This doesn't work.

Thoughts??


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D9:D107").Address Then
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
End If

End Su
 
Your code will bold the selection only when the *entire* range
D9:D107 is changed. I assume that you want to bold the selection
when some cell within that range is in changed. In that case,
change

If Target.Address = Range("D9:D107").Address Then
' to
If Not Application.Intersect(Target, Range("D9:D107")) Is Nothing
Then


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
Back
Top