title: Split text separated by multiple blank spaces into multiple columns
body: <p>I need to split the text contents of some cells into multiple columns.</p>
  
  <p>The text inside the cells doesn't follow a precise pattern (e.g. a comma, semicolon...) but the pieces of text are separated by multiple blank spaces. Here is an example:</p>
  
  <blockquote>
    <p>Hi my name is Andrea (multiple blank spaces) I am good (multiple blank spaces) What about you?</p>
  </blockquote>
  
  <p>I would like to split my text into three columns (one containing <code>Hi my name is Andrea</code>, the second containing <code>I am good</code> …).</p>
  
  <p>The blank spaces between the sentences are not always the same (e.g. between <code>Andrea</code> and <code>I am good</code> there are 5 blank spaces while between <code>good</code> and <code>what about you</code> there are 7 blank spaces).</p>
  
  <p>I thought that splitting the text when meeting more than one blank space could be a good idea. This is the code I tried:</p>
  
  <pre><code>Sub NameSplit()
  
      Dim txt As String
      Dim i As Integer
      Dim FullName As Variant
      Dim x As String, cell As Range
  
      txt = ActiveCell.Value
  
      FullName = Split(txt, " ")
  
      For i = 0 To UBound(FullName)
  
          Cells(1, i + 1).Value = FullName(i)
  
      Next i
  
  End Sub
  </code></pre>