Can anyone help on this? I don't know what to look for to fix.
Application.Goto Reference:="R6C29"
Sub MG10Oct01()
Dim rng As Range, Dn As Range, Sp As Variant, n As Long, c As Long
Set rng = Range(Range("Z1"), Range("Z" & Rows.Count).End(xlUp))
Application.ScreenUpdating = False
For Each Dn In rng
For n = 1 To Len(Dn.Value)
If Dn.Characters(n, 6).Text = "530ZBA" Then
Dn.Characters(n, 6).Font.Color = vbRed
End If
Next n
Next Dn
Application.ScreenUpdating = True
End Sub
Application.Goto Reference:="R6C29"
Sub MG10Oct01()
Dim rng As Range, Dn As Range, Sp As Variant, n As Long, c As Long
Set rng = Range(Range("Z1"), Range("Z" & Rows.Count).End(xlUp))
Application.ScreenUpdating = False
For Each Dn In rng
For n = 1 To Len(Dn.Value)
If Dn.Characters(n, 6).Text = "530ZBA" Then
Dn.Characters(n, 6).Font.Color = vbRed
End If
Next n
Next Dn
Application.ScreenUpdating = True
End Sub