Color_String_in_Cell.vba 432 B

123456789101112131415161718192021
  1. Sub Color_String_in_Cell()
  2. Dim rCell As Range
  3. Dim X As Long
  4. Dim y As Long
  5. Dim mystr As String
  6. 'ColorTextInCell.Show
  7. mystr = InputBox("Enter a string")
  8. y = Len(mystr)
  9. For Each rCell In Selection
  10. X = 1
  11. Do
  12. X = InStr(X, UCase(rCell.value), UCase(mystr))
  13. If X > 0 Then
  14. rCell.Characters(X, y).Font.Color = vbBlue
  15. X = X + 1
  16. End If
  17. Loop Until X = 0
  18. Next rCell
  19. End Sub