I want the value in cell H18 to appear or not appear based on the
value selected and displayed in cell N14. For example, when cell N14
= "Diamond" I want the value in cell H18 to be hidden. Here's my code
but the statement for case "Diamond" won't execute:

Private Sub Worksheet()

Dim Pattern As String

Pattern = Range("N14")

Application.ScreenUpdating = False
Application.ActiveSheet.Range("H18").Select
Application.ScreenUpdating = True

Select Case (Pattern)

'Application.ActiveSheet.Range("H18").Select

Case "Diamond"

Cell.Value = ""

End Select


End Sub