Change Colour of AutoShape trigger cell problem.

[singerbatfink]

Hi Guys and Girls

Im really needing help here. Ive some code that changes my AutoShape button colour. It works fine when I enter a value into the trigger cell and press enter.

Ive had to adapt my spreadsheet slightly and the triggercell now has an IF Statement to give me either Yes No or Blank. Now the code wont work unless i manually click into the trigger cell and press enter.

Id like this to run automatically as the IF Statement changes.

Here is my code. (the triggercell is on a separate worksheet sheet from the Autoshape buttons.

Please Login or Register  to view this content.

Can anyone offer a solution.

Thanks
SB

[AlphaFrog]

What is the formula in the trigger cell?

The solution would be to use a Worksheet_Change event procedure to trigger off of the cells referenced in the formula that the user changes.

[singerbatfink]

Hi This is the formula in the trigger cell.

=IF(E492=34,"Yes",IF(E489>=1,"No",""))

Ive changed the event but it still wont change the autoshape. Ive read thet the WorkSheet_Calculate event should do it but I dont know how to build it in.

Please Login or Register  to view this content.

[AlphaFrog]

Try this...

If Not Application.Intersect(Range("E492,E489"), Target) Is Nothing Then

[singerbatfink]

Perfect. Thanks for your help