title: Creating first letters of names based on if there are already first letters and add a dot
body: <p>I hope someone can help me with this complicated question tho!</p>
  <p>This code checks the names in column E, then creates for each name in column E a first letter in column D and adds an dot.</p>
  <p>For example if there is a name called Dave in column E it creates <code>D.</code> in column D.</p>
  <p>For exmaple if there is a name called Dave Rick in column E it create <code>D.E.</code> in column D.</p>
  <p>So what I would like to change in this code is that if there is already a firstletter or second or third in column D then it should not do anything besides putting a dot. If there isn't one and if there is not a firstletter in column E, it should automatically put the first letters of the names in column E in column D with a dot.</p>
  <pre><code>Dim cell As Range
  
  lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, &quot;E&quot;).End(xlUp).Row
  
  For Each cell In ActiveSheet.Range(&quot;E2:E&quot; &amp; lastRow)
      S = &quot;&quot;
      If cell.Value &lt;&gt; &quot;&quot; Then
          V = Split(cell.Value, &quot; &quot;)
          For Each W In V
              S = S &amp; Left$(W, 1) &amp; &quot;.&quot;
          Next W
          cell.Offset(ColumnOffset:=-1).Value = S
      End If
  Next cell
  </code></pre>
  <p>Screenshot:</p>
  <p><a href="https://i.stack.imgur.com/UzqF6.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/UzqF6.png" alt="Example:" /></a></p>
  <p>Extra screenshot:</p>
  <p><a href="https://i.stack.imgur.com/yF3BO.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/yF3BO.png" alt="enter image description here" /></a></p>