How to Hide a Shape

[gtslabs]

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

[Mordred]

Hello gtslabs and welcome to the forum.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here