show hide shape to a cell according to its value

hello am new at this and i need some help please.
i have this worksheet

Untitled.jpg

i want whenever i insert number 30 in cells D3 to D62 and cells R3 to R62
the RCD Shape to apear to it. (RCD is a my group shape).
i tried with this code but nothing happens

if you see the example i insert manually the RCD shape to cells R4,R5 etc

Private Sub Worksheet_Calculate()
     If Range("D3").Value = 30 Then
          Me.Shapes("RCD").Visible = False
     Else
            Me.Shapes("RCD").Visible = True
     End If
 End Sub

thank you