runtime error 13 type mismatch

Is it possible to bypass this message? One of my cells may have an error message or a "#N/A" and I keep getting this error. Here is my code:

Sub update()
  Application.ScreenUpdating = False
  If Sheets("Stoplight").Range("O22") >= 1 Then
       Sheets("Stoplight").Shapes("TextBox 11").Fill.ForeColor.RGB = RGB(192, 80, 77)
    Else
        Sheets("Stoplight").Shapes("TextBox 11").Fill.ForeColor.RGB = RGB(146, 208, 80)
    End If
Application.ScreenUpdating = True
End Sub