Anthony G.
Active Member
- Joined
- Mar 24, 2002
- Messages
- 465
The following code that Mark provided for me works quite well...until I protect the worksheets. When protected, I receive the following message: Run-time error 1004 - Unable to set the Bold property for the font class.
Here's the formula
Private Sub Worksheet_Change(ByVal Update As Excel.Range)
If Intersect(Update, Range("q13:z137")) Is Nothing Then Exit Sub
With Update
.Font.Bold = True
.Font.Italic = True
With .Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End With
End Sub
Any suggestions?
Thanks,
Anthony
Here's the formula
Private Sub Worksheet_Change(ByVal Update As Excel.Range)
If Intersect(Update, Range("q13:z137")) Is Nothing Then Exit Sub
With Update
.Font.Bold = True
.Font.Italic = True
With .Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End With
End Sub
Any suggestions?
Thanks,
Anthony