title: Split Address Column
body: <p>I need to take an Excel Database that has an Address column setup like:
    "Physical Address, Mailing Address, Suit#; City; ST; Zip"  into columns split by the semi-colon.</p>
  
  <p>Unfortunately I have data inside the Address column that has ASCII character references that isn't allowing me to just use "Text to Columns" so I developed the following code, but it doesn't do what I am wanting it to do.  The range I am splitting is in Column B.</p>
  
  <pre><code>Sub SplitAddress()
      Dim txt As String
      Dim i As Integer
      Dim j As Integer
      Dim Address As Variant
      Dim Rng As Range
      Dim Row As Range
      Dim LastRow As Integer
  
      txt = ActiveCell.Value
      Address = Split(txt, "; ")
  
      LastRow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
      Rng = Range("B3:B" &amp; LastRow)
  
      j = 1
  
      For Each Row In Rng.Rows
          For i = 0 To UBound(Address)
              Cells(3, j + 1).Value = Address(i)
          Next i
      Next Row
  End Sub
  </code></pre>