VBA delimited comma text to column reset?

[Robert_G]

I have this code below to change delimited comma text to specific columns with a command button. It works great.

When I want to copy and paste another example in A1, the data is not correct. It seems to be already formatted but in the wrong column.

I can't find a way to fix it other than to close and re-open. Any suggestions to fix this?




Private Sub CommandButton1_Click()




Dim objRange1 As Range


'Set up the ranges
Set objRange1 = Range("a23:a49")


'Do the first parse
objRange1.TextToColumns _
Destination:=Range("e2"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=True, _
Space:=False, _
Other:=False, _
OtherChar:="-"








End Sub

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...tion-end-command-post5119484.html#post5119484

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).

If you do not receive a response, you can "bump" it by replying to it again, though we advise you to wait 24 hours before doing and not to bump a thread more than once a day.