Text to Columns Automation

Sub TextToColumnsAutomation()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim delimiter As String

    Set ws = ActiveSheet
    delimiter = InputBox("Enter delimiter (comma, semicolon, space, etc.):", "Delimiter", ",")

    If delimiter = "" Then Exit Sub

    ' Select the range containing text to split
    Set dataRange = Application.InputBox("Select range to split:", Type:=8)

    ' Split the text using the specified delimiter
    dataRange.TextToColumns Destination:=dataRange, _
        DataType:=xlDelimited, _
        Other:=True, _
        OtherChar:=delimiter, _
        ConsecutiveDelimiter:=False

    MsgBox "Text split into columns successfully!"
End Sub