title: Excel VBA. For each row in range, for each cell in row, for each character in cell
body: <p>I have created a VBA macro simple to absurdity. </p>
  
  <p>For each row in range, then for each cell in row and then for each character in cell. </p>
  
  <p>But it returns property or method not supported.</p>
  
  <p>Now, to refer to each character in a cell in Excel VBA, it has to be defined as a range. So how is not a cell in a row in a range not a range object?</p>
  
  <p>In all Excel examples the cells with Characters property have been referred to in absolute values. Like <code>Worksheets("Sheet1").Range("A1")</code></p>
  
  <p>Do I have to write a code of
  <code>Worksheets("MySheet").Range("B1")</code>
  ...
  <code>Worksheets("MySheet").Range("B2")</code>
  ...
  ...
  <code>Worksheets("MySheet").Range("B250")</code>
  To access characters or is there a way to access each character in a cell without Mid function?</p>
  
  <p>By the way, Mid function looses formatting but I am looking for underlined characters.</p>
  
  <p>My program is like this</p>
  
  <pre><code>Sub Celltest()
      For Each rw In Sheets("Joblist").Range("B1:D250").Rows
          For Each cel In rw.Cells
              For Each char In cel.Characters
                  If char.Font.Underline = True Then MsgBox char
              Next
          Next
      Next
  End Sub
  </code></pre>
  
  <p>As a result I get message that a property or method is not supported.</p>
  
  <p>Thank you!</p>
  
  <p>David</p>