title: Replace multiple characters in one line VBA
body: <p>I am working in VBA and have a cell with all the letters of the alphabet, and I want to replace all the letters (with nothing, "", or a numeric, "0"), as well as possible punctuation. I currently run it as:</p>
  
  <pre><code>val = Replace(val, "(", "")
  val = Replace(val, "]", "")
  val = Replace(val, "A", "")
  val = Replace(val, "B", "")
  val = Replace(val, "C", "")
  val = Replace(val, "D", "")
  val = Replace(val, "E", "")
  val = Replace(val, "F", "")
  val = Replace(val, "G", "")
  val = Replace(val, "H", "")
  val = Replace(val, "I", "")
  val = Replace(val, "J", "")
  val = Replace(val, "K", "")
  val = Replace(val, "L", "")
  val = Replace(val, "M", "")
  val = Replace(val, "N", "")
  val = Replace(val, "O", "")
  val = Replace(val, "P", "")
  val = Replace(val, "Q", "")
  val = Replace(val, "R", "")
  val = Replace(val, "S", "")
  val = Replace(val, "T", "")
  val = Replace(val, "V", "")
  val = Replace(val, "W", "")
  val = Replace(val, "X", "")
  val = Replace(val, "Y", "")
  val = Replace(val, "Z", "")
  </code></pre>
  
  <p>I tried:</p>
  
  <pre><code>val = Replace(val, "(", "")
  val = Replace(val, "]", "")
  val = Replace(val, "[A-TV-Z]", "")
  </code></pre>
  
  <p>I could add a loop, but then the computation time will not change.</p>
  
  <p>But it does not work. Is there a way to replace the 25 lines of code with a single line, as I tried, as I have to read through 1M cells, and it takes a long time to run currently. The sad part is, this replacement is run on separate occasions throughout.</p>