the code goes on the sheet1 code, right click the tab and select view code
Private Sub Worksheet_Change(ByVal Target As Range)
With Range("D23:D46")
If Target.Value <> "Please Provide Comments" And Target.Offset(, -1).Value = "No" Then
With Target.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Else:
With Target.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
End With
Target.FormulaR1C1 = "=IF(RC[-1]=""No"", ""Please Provide comments"","" "")"
End If
End With
End Sub
Bookmarks