How do I make text to columns automated?

Shakeh93 

You may use VBA to automate this task.

Place the following code for Change Event on the Sheet Module and to do that, right click on the Sheet Tab --> View Code --> paste the code given below into the opened code window --> Close the VB editor and save your Workbook as Macro-Enabled Workbook.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
On Error GoTo Skip
If Target.Column = 1 Then
    Application.EnableEvents = False
    For Each cel In Target.Cells
        If cel <> "" Then
            cel.TextToColumns comma:=True
        End If
    Next cel
End If
Skip:
Application.EnableEvents = True
End Sub

Please find the attached for reference. The Sheet1 Module has the above code.

To test the code, place a comma separated list (e.g. Word1,Word2,Word3,Word4) in any cell in Column A.

Shakeh93 

I think I should have the solutions, please just look at attached video and tell me if that's OK so I can share the file