title: How to check if cell is formatted as Currency?
body: <p>I am working on a project where it is necessary to check that a large number of cells meet a number of criteria.</p>
  
  <p>I have been able to use the code below to check whether a cell contains a value in a numeric format. However, I also need a way to check whether a cell contains a value formatted as US Currency.</p>
  
  <pre><code>If Not Application.WorksheetFunction.IsNumber(Range(StringColumn &amp; StringRow).Value) Then  
      MsgBox "Test Failed at " &amp; StringColumn &amp; StringRow  
      Exit Sub  
  Else: MsgBox "Valid format for cell " &amp; StringColumn &amp; StringRow  
  End If
  </code></pre>
  
  <p>StringColumn and StringRow are variables that supply the cell reference.</p>
  
  <p>Your help is appreciated. Thanks!</p>