jmarting13
New Member
- Joined
- Mar 2, 2021
- Messages
- 39
- Platform
- Windows
Whenever I run the code attached. I keep getting an error on the line "Font.color = vbRed". I've also tried typing it as "Target.font.color = RGB(255, 0, 0)" but that doesn't work either. Please help!!
Private Sub Worksheet_Calculate()
Dim Xrg As Range
Set Xrg = Range("K1")
If Not Intersect(Xrg, Range("K1")) Is Nothing Then
MsgBox "This is fun"
Range("A1:J37").Font.Color = vbBlack
End If
If Range("K1").Value = "Quote" Then
Font.Color = vbBlack
Else
Font.Color = vbRed
End If
End Sub
Private Sub Worksheet_Calculate()
Dim Xrg As Range
Set Xrg = Range("K1")
If Not Intersect(Xrg, Range("K1")) Is Nothing Then
MsgBox "This is fun"
Range("A1:J37").Font.Color = vbBlack
End If
If Range("K1").Value = "Quote" Then
Font.Color = vbBlack
Else
Font.Color = vbRed
End If
End Sub