title: Transpose Single Multiline cell horizontally with a Macro
body: <p>I am currently working on a macro that takes a multiline cell and takes each new line and puts them horizontally into the next column. <strong><em>This needs to be relative referenced, meaning I'll need to reuse it on multiple cells so it can't be specific to a certain range of cells.</em></strong></p>
  
  <p>So what I start off with is this:<a href="https://i.stack.imgur.com/NAWQR.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/NAWQR.png" alt="initial cell"></a></p>
  
  <p>Then I should turn that into this:</p>
  
  <p><a href="https://i.stack.imgur.com/Usy95.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Usy95.png" alt="enter image description here"></a></p>
  
  <p>I have tried writing a macro that takes all the values and puts them into individual cells on one column separated by rows, and then paste > transpose, but I get a paste error. Anybody got any tips? Thanks in advance.</p>
  
  <p>Here's the code from the macro I've tried so far. I'm getting a paste error from it though, so it is not working.</p>
  
  <pre><code>Sub t()
  '
  ' t Macro
  '
  ' Keyboard Shortcut: Ctrl+t
  '
      ActiveCell.Select
      ActiveCell.FormulaR1C1 = "Sheryl D. Colvin, deceased" &amp; Chr(10) &amp; ""
      ActiveCell.Offset(0, 1).Range("A1:A3").Select
      ActiveCell.Offset(1, 0).Range("A1").Select
      ActiveSheet.Paste
      ActiveCell.Range("A1:A3").Select
      Selection.Copy
      ActiveCell.Offset(-1, 0).Range("A1").Select
      Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
          False, Transpose:=True
      ActiveCell.Offset(1, 0).Range("A1:A3").Select
      Application.CutCopyMode = False
      Selection.ClearContents
  End Sub
  </code></pre>