I'm trying to make a toggle button change the colour of a cell. I've tried
several variations of the 'IF' function and cannot get it to recognise the
button as a true/false answer to the argument. If anyone can help either with
VB script or an 'IF' argument proceedure that would be fantastic.

Thanks

Luke

If Range("A1").Value > 0 Then
Range("B2").Interior.ColorIndex = 3
Else
Range("B2").Interior.ColorIndex = xlNone
End If



"LUKEMUDGE" <(E-Mail Removed)> wrote in message
newsA68A3B1-6200-457C-82AA-(E-Mail Removed)...
> I'm trying to make a toggle button change the colour of a cell. I've tried
> several variations of the 'IF' function and cannot get it to recognise the
> button as a true/false answer to the argument. If anyone can help either
> with
> VB script or an 'IF' argument proceedure that would be fantastic.
>
> Thanks
>
> Luke

Assuming you wanted to toggle the cell's color between Red and None, just
use this single line of code in your toggle button's event procedure...

Range("A1").Interior.ColorIndex = -4139 - Range("A1").Interior.ColorIndex

The way to figure out the number (-4139 for my example code) is to add -4142
(the value of xlNone) and the ColorIndex value for the color you want (3
being Red in my example code)...

-4142 + 3 = -4139

Just use the ColorIndex in place of the value 3 in above.

--
Rick (MVP - Excel)


"LUKEMUDGE" <(E-Mail Removed)> wrote in message
newsA68A3B1-6200-457C-82AA-(E-Mail Removed)...
> I'm trying to make a toggle button change the colour of a cell. I've tried
> several variations of the 'IF' function and cannot get it to recognise the
> button as a true/false answer to the argument. If anyone can help either
> with
> VB script or an 'IF' argument proceedure that would be fantastic.
>
> Thanks
>
> Luke