Nothing Happens
I thought I posted this but it appears not to be showing so sorry if
there are two next to each other. I am trying to do a user input that
if what I put in is in a cell that cells font will be blue. When I do
it nothing happens. I did the place my mouse of the cell and input to
see what it was seeing and it says they both see 100 but the macro
doesn't change the font still.
Do While Userinput < "done"
Userinput = InputBox("Type in goal.Type 'done' to stop.")
If Userinput = Range("G2") Then Range("G2").Font.Color = RGB(0, 0,
255)
Loop
End Sub
|