title: Check if cell contains numbers
body: <p>If the cell within the range mentioned in the code contains a number e.g. &quot;12&quot; the code works and the cell becomes empty.</p>
  <p>If the cell contains a number and text e.g. &quot;12amasa&quot; or &quot;asa12&quot; the code doesn't work.</p>
  <p>I thought <code>If IsNumeric(cell.Value) And cell.Value &lt;&gt; vbNullString Then</code> would do the job, but it does not.</p>
  <p>I want if the cell contains a digit, then it should be empty. Only letters from a-z allowed.</p>
  <pre class="lang-vb prettyprint-override"><code>Dim cell As Range
  Application.EnableEvents = False
  
  For Each cell In Target
      If Not Application.Intersect(cell, Range(&quot;a5:a10000&quot;)) Is Nothing Then
          If IsNumeric(cell.Value) And cell.Value &lt;&gt; vbNullString Then              
              cell.Value = vbNullString
              cell.Interior.Color = RGB(255, 0, 0)
          Else
              cell.Interior.Color = RGB(1000, 1000, 1000)
          End If
      End If
  Next cell
  
  Application.EnableEvents = True
  </code></pre>