Code says run time error 424 Object required

Here is my code below. In Lines 4-6 i am trying to make a textbox visible if the word Start is typed in cell E14. And invisible if nothing is typed
but i get this error Code says run time error 424 Object required

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sPrompt As String
    Dim sTitle As String
 If Range("E14").Text = "Start" Or Range("E14").Text = "ready" Then
        TextBox10.Visible = True

    ElseIf Range("E14").Text = "" Or Range("E14").Text = "" Then
     TextBox10.Visible = False

        End If
         Application.ScreenUpdating = True
    If Target.Count > 1 Then Exit Sub                                'Exit if more than one cell selected
    If Not Intersect(Target, [B7]) Is Nothing Then                   'If the cell changed is in B7
        Select Case Target.Value
        Case 300000, 500000:
            sTitle = "Title"
            sPrompt = "You have selected a grant of £" & Target.Value
            MsgBox sPrompt, vbInformation, sTitle
        Case Else
            'Do nothing
        End Select
    End If
End Sub

A textbox.

Active x control.