title: VBA Identify numbers within a range
body: <p>I am sure this is a simple one but cant seem to find anything explicit out on the WWW. </p>
  
  <p>I need my code to identify any numbers between 1 and 9 within a column for it to throw the error back for that range, I can only get it working with one number at present. </p>
  
  <pre><code>Public Sub ErrorCheck()
  Dim FindString As String
  Dim Rng As Range
  FindString = ""
  If VBA.Trim(FindString) &lt;&gt; "" Then
  With Sheets("Scoring").Range("S:S")
      Set Rng = .Find(What:=FindString, _
                      After:=.Cells(.Cells.Count), _
                      LookIn:=xlValues, _
                      LookAt:=xlWhole, _
                      SearchOrder:=xlByRows, _
                      SearchDirection:=xlNext, _
                      MatchCase:=False)
      If Not Rng Is Nothing Then
          MsgBox "Error", True
      Else
  
      End If
  End With
  End If
  End Sub
  </code></pre>
  
  <p>Thanks for your help!</p>