title: Check string for uppercase characters
body: <p>How do I check each character in a cell to see if it is upper case?</p>
  
  <p>UCASE converts letters to uppercase but I want to check.</p>
  
  <p>I'm not sure where the "do" statement should go.</p>
  
  <pre class="lang-vb prettyprint-override"><code>Function Italic(rng As Range) As Variant
      Dim strng As String
      Dim iEnd As Long, iIni As Long, strngLen As Long
  
      strngLen = Len(rng.Value2)
      iIni = 1
  
      Do While iEnd &lt;= strngLen
         Do While UCase(Mid(rng.Value, iEnd, 1)) = Mid(rng.Value, iEnd, 1) And Not rng.Characters(iEnd, 1).Font.Italic
              If iEnd = strngLen Then Exit Do
              iEnd = iEnd + 1
          Loop
          If iEnd &gt; iIni Then strng = strng &amp; Mid(rng.Value2, iIni, iEnd - iIni) &amp; "|"
          iEnd = iEnd + 1
          iIni = iEnd
      Loop
  
      If strng &lt;&gt; "" Then Italic = Split(Left(strng, Len(strng) - 1), "|")
  
  End Function
  </code></pre>
  
  <p>I'm not sure what I should do within that "uppercase".</p>