I have a shape that is used as a text box memo of sorts >255 characters with mixed fonts so I can not use a lable or textbox control.
I want to hide or show the shape based on the conditon of a cell.

This is what I have so far but it is not working as I dont know how to reference the shape properties - any ideas?
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$Q$21" Then Exit Sub
Select Case Target
Case True
ActiveSheet.Shapes("TextBox 4").Visible = True
Case False
ActiveSheet.Shapes("TextBox 4").Visible = False
End Select

End Sub