Replace destination cells

[SmilingPolitely]

When, in my macro, the code gets to this line:

Columns("AA").TextToColumns Destination:=Range("AB1"),
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True,
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1),
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1),
Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True

I am asked whether I want to replace the contents of the destination.
As I always want to do this, is there a way I can have this happen, and
avoid the user prompt?


Thanks in advance.

 

[Trevor Shuttleworth]

Try:

Application.DisplayAlerts = False
' your code
Application.DisplayAlerts = True

Regards

Trevor

 

[Nigel]

Wrap the code with

Application.DisplayAlerts = False
'your code
Application.DisplayAlerts = True

HTH
Cheers
Nigel

 

[SmilingPolitely]

Sensational.. thanks

Wrap the code with

Application.DisplayAlerts = False
'your code
Application.DisplayAlerts = True

HTH
Cheers
Nigel