title: Wildcard Character in String
body: <p>I have a spreadsheet I receive regularly with a large number of cells containing names. Some cells have a full name including a middle initial with a period.</p>
  
  <p>For example:</p>
  
  <blockquote>
    <p>Springer, Jerry A.</p>
  </blockquote>
  
  <p>Every now and then though the sheet I receive will have the following:</p>
  
  <blockquote>
    <p>Springer, Jerry .</p>
  </blockquote>
  
  <p>I need to get rid of those middle initials but also check to make sure that I just delete the "." if it's there.</p>
  
  <p>Forgive me for my lack of proper logic, but I have the following ca-ca sub:</p>
  
  <pre><code>Sub DeleteMiddleI()
  Dim nr1, nr2 As Range
  Dim col As Integer
  
  col = 1
  Set nr1 = Cells(65536, col).End(xlUp)
  Set nr2 = Cells(col, 1)
  
  Do While nr2 &lt;&gt; nr1
      'Check to be sure the cell isn't empty
      If Len(nr2) &lt;&gt; 0 Then
           'Check to see if the last character is a "."
           If Right$(nr2, 1) = "." Then
              'Check and be sure there is a character before the "."
              If InStr(1, nr2.Text, "[A-Z].") &gt; 0 Then '&lt;&lt;&lt;&lt;&lt;&lt;CODE BREAKAGE
                  nr2 = Left$(nr2, Len(nr2) - 3)
              End If
           End If
      End If
  
      col = col + 1
      Set nr2 = Cells(col, 1)
  Loop
  
  End Sub
  </code></pre>
  
  <p>It breaks on the </p>
  
  <blockquote>
    <p>If InStr(1, nr2.Text, "[A-Z].") > 0 Then</p>
  </blockquote>
  
  <p>I feel stupid...but what am I missing?</p>