Make shapes appear and hide according to value in cell

I am using the following code to hide a shape when A1 = any other value than 1. This works when I manually change the value but it doesn't work when the cell value is calculated with a formula. Any ideas how I can get this or another approach to work?

[Code]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then _
Me.Shapes("Rectangle 3").Visible = (Cells(1, 1).Value = 1)
End Sub
[Code]


I am using the value in the cell A1 as a switch; 1= incomplete data, which is calculated on the same sheet according to data on a seperate sheet (same workbook).

[Formulas]
A1: =IF(L24 = "Please Complete Form", 2, 1)

L24: =IF(COUNTIF('Workplace Questionnaire'!$U$10:$U$101,"*"&Options!$C$7&"*")>0, "Please Complete Form", (COUNTIF('Workplace Questionnaire'!$U$10:$U$101, C24)))
[Formulas]

I am using the shape to hide graphic printouts relating to the data gathered on the data sheet. The idea is that the graphs are shown only when all data is fully entered.

NB. I've shared the formulas to add context, and to demonstrate that I am using them with the macro - don't worry too much if they are inaccurate, I've been playing around with them to see if i can jigg it all in to place.

Thanks in advance!

Thank you. Is that code added below, above to instead of the code I am using? I am new to VBA, if that wasn't obvious.

so, its added below the existing code?