title: Validate entry of an input box
body: <p>Im trying to get an input box to validate the entries a user will make. </p>
  
  <p>i'm using the below script but cant get the validation to work, any help would be appreciated.</p>
  
  <pre><code> Sub inputbox()
  
   Dim Manager As Long
  
       On Error Resume Next
  
          Application.DisplayAlerts = False
  
          Manager = Application.inputbox(Prompt:="Please enter a manager.", Title:="Pick A Manager Name",      Type:=1)
  
  On Error GoTo 0
  
  Application.DisplayAlerts = True
  
      If Manager = "" Then
  
          Exit Sub
  
      ElseIf Manager &lt;&gt; Ben, Cameron, Chris, Martin, Peter Then
  
      MsgBox "Incorrect Name, pick a new one!"
  
      Else
  
          MsgBox "Your input was " &amp; Manager
  
      End If
  
   End Sub
  </code></pre>