Color font red when cursor passes over it

[Noir]

Anyone know how to do this?

Thx,
Noir

[Mark O'Brien]

what? Change it permanently red? You would have to set up a loop to check where the cursor is located and change the cell contents accordingly.

[Noir]

Not permanently, just while the cursor hovers over it. (I would like to have the font on my Command button turn red).

Noir

[Mark O'Brien]

Oh, on a command button? That's different then. That might be a bit easier.

Where is this button? On a worksheet? Userform?

If it's on a worksheet did you create it using the "Control Toolbox" or the "Forms" menu?

[Noir]

It is a Worksheet and was created using the Control Toolbox.

[Mark O'Brien]

This is the best I could come up with, I inserted a commandbutton called commanbutton1, change this in the code to whatever the name of your button is:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

 ' Dim iColour As Long



  With CommandButton1

 '

 ' iColour = &H0&

  .ForeColor = &HFF&

    If X < 5 _

    Or X > .Width - 5 _

    Or Y < 5 _

    Or Y > .Height - 5 Then

      .ForeColor = &H0& 'Assume font colour is originally black

      Exit Sub

    Else

    End If

  End With

End Sub

The drawbacks are that if you move the mouse away very quickly, the text will stay red, I used the value 5 to make the box smaller in terms of the colour changing to try to reduce this fast mouse move.

HTH

Oh yeah, to insert the code, rightclick on the name tab of the sheet that holds the button and select "View Code", copy and paste this code into the window and change "CommandButton1" to the name of your button, there are only two places in the code where you need to do this.

[Noir]

Thanks for all your hard work Mark!! It worked fine.

Noir