Replace destination cells

  • Thread starter Thread starter SmilingPolitely
  • Start date Start date
S

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.
 
Try:

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

Regards

Trevor
 
Wrap the code with

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

HTH
Cheers
Nigel
 
Back
Top