ExcelBanter - Do you want to replace the contents of

ExcelBanter (https://www.excelbanter.com/)

- Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)

- - Do you want to replace the contents of (https://www.excelbanter.com/excel-worksheet-functions/257525-do-you-want-replace-contents.html)

Do you want to replace the contents of

When my macro runs, it stops after this procdure and asks "Do you want to
replace the contents ofthe destination cells" is there something I can add
that will automatically tell it yes? Here is the part of the macro that it
stops on.

Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))

Thanks

Do you want to replace the contents of

Hi,
Try inserting this line just above the problem:
Application.DisplayAlerts = False
You should restore this later in the code with the line:
Application.DisplayAlerts = True
Regards - Dave.

"Donna" wrote:

When my macro runs, it stops after this procdure and asks "Do you want to
replace the contents ofthe destination cells" is there something I can add
that will automatically tell it yes? Here is the part of the macro that it
stops on.

Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))

Thanks