Selection.TextToColumns auto-select "yes"

Part of my macro contains the action text to columns, where the data is split up over two columns. However, when running the macro, a pop-up appears: "Do you want to replace the contents of the destination cells?"
As part of my macro, I would like to include some vba that automatically selects "Yes" as an answer to that question. How can I do that?

VBA code for the text to columns action:

Columns("S:S").Select
Selection.TextToColumns Destination:=Range("S1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

Originally Posted by davesexcel

Try

Please Login or Register  to view this content.

Thanks! It works.