Hello and many thanks for helping me out!
I'd need some help to update the following code to make it case sensitive, please. I just want to highlight "Sec" not "sec"
Sub Sec()
Dim rng As Range, c As Range, i As Long, mystring As String, tmp As String
Application.ScreenUpdating = False
Set rng = Range("D8:D1000")
mystring = "Sec"
For Each c In rng
For i = 1 To Len(c)
tmp = Mid(c, i, 1)
If InStr(1, mystring, tmp, 0) Then c.Characters(i, 1).Font.Color = vbRed
Next i
Next c
Application.ScreenUpdating = True
End Sub
I'd need some help to update the following code to make it case sensitive, please. I just want to highlight "Sec" not "sec"
Sub Sec()
Dim rng As Range, c As Range, i As Long, mystring As String, tmp As String
Application.ScreenUpdating = False
Set rng = Range("D8:D1000")
mystring = "Sec"
For Each c In rng
For i = 1 To Len(c)
tmp = Mid(c, i, 1)
If InStr(1, mystring, tmp, 0) Then c.Characters(i, 1).Font.Color = vbRed
Next i
Next c
Application.ScreenUpdating = True
End Sub