Splitting cells into new columns

Originally Posted by snb

In that case this will suffice:

Sub snb()
   Workbooks.Open "E:\example.txt", , , 3
End Sub

Won't this just open my spreadsheet?