Hiding a Shape with VBA

[RLJ]

I need to hide Rectangle 19 based upon the code below, but it gives an error when it gets to the line for Shapes.

Private Sub ComboBox1_Change()
    Dim AM As String
    
    AM = Range("Amenity_Type").Value
    Application.ScreenUpdating = False
        Range(AM).Copy
        Range("Amenities_Variable").PasteSpecial Paste:=xlPasteValues
        Range("C26").Select
        
            'If Prop Type = Office then Rectangle 19 needs to be visable, else hidden
            If Range("Prop_Type_Change").Value = "Office" Then
                    CheckBox11.Visible = True
                    ActiveSheet.Shapes("Rectangle 19").Visable
                Else
                    CheckBox11.Visible = False
            End If
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
End Sub

Thanks for your help

 

[shg]

ActiveSheet.Shapes("Rectangle 19").Visible = False