This is something I found in a different post:
Sub Windings
Dim n As Integer
Dim Msg, Default, Val
Msg = "Enter value between 1-50"
Default = "1"
For n = 1 To Len(ActiveCell)
Val = InputBox(Msg, Default)
Range("a1").Characters(n, 1).Font.ColorIndex = Val
Next n
End Sub
You need to highlight the cells you want to change the colors for and then run the macro.
Remember to mark your thread as solved when your issue has been taken care of and to award points to helpful members via the star button to the left of their posts.
Bookmarks