VBA to change backgroundcolour in Freeform depending on text in cells

Hello

I'm new to VBA, so I need some help.
I have a spreadsheet with several freeforms. I would like them to change backgroundcolour, if the content in a cell is equal to another cell.

Basically I would like my shape "Freeform1" to change backgroundcolour to RGB (0, 180, 0) if Sheet1.Range ("A1") = Sheet2.Range("D3").
If it's not the same content in both cells, I would like the freeform to remain unchanged, that's RGB (79, 129, 189).

This should happend automaticly, so I don't have to click the shape to make it happen.

Can anyone help me with this?

Best regards
Mixer

Here's your macro:

Please Login or Register  to view this content.

to automate this, you will need to call this from the "Workbook_SheetChange" event of the workbook; like this

Please Login or Register  to view this content.

so that the code runs everytime the user changes something and evaluates the condition.

Thank you jewelsharma.

I tried to use the macro you gave me, I've just changed the cells and sheets to fit my new document. The shapes are in sheet1 and the reference cells in sheet2 and 3.

It looks like this now:

Sub Auto_Color_FreeForm()
With ThisWorkbook.Worksheets("Sheet1")
If .ThisWorkbook.Worksheets("Sheet2").Range("A3") = ThisWorkbook.Worksheets("Sheet3").Range("D3") Then _
.Shapes("Rounded Rectangle 4").Fill.ForeColor.RGB = RGB(0, 180, 0) Else _
.Shapes("Rounded Rectangle 4").Fill.ForeColor.RGB = RGB(79, 129, 189)
End With
End Sub

When I try to run it, with the second macro you wrote, I get an error message on line nr 3. Error code 383: Object doesn't support this property or method.
Any suggestions on how to fix this?

I'll check & revert tomorrow.

remove the "." just before "ThisWorkbook" in line No. 3 of your code; and then run it again.
Let me know if anything, or else mark the thread as [I]SOLVED[/]

Note: Please use the code tags when sharing the code in future. It makes your post neater and easier for all to follow.

Thanks, it runs perfectly now.