' Differs from Walkenbach in that he just populated A1 if empty,did this on A1,restored A1. This is better IFF you are allowed to add a workbook.
Sub UnFuckAutomaticTextToColumns()
    If ActiveSheet.ProtectContents Then MsgBox "BTW, the active sheet is protected. Consider unprotecting 'ere TextToColumns"
    Workbooks.Add
    Cells(1) = "A" 'Required, else TextToColumns will error
    Cells(1).TextToColumns DataType:=xlDelimited, Tab:=False, semicolon:=False, _
                           comma:=False, Space:=False, other:=False
    ActiveWorkbook.Close False
End Sub