tak makro už mám funkční

Sub Makro2()
'
' Makro2 Makro
'

'
    Range("A1").Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("B1"), 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), Array(4, 1)), _
        TrailingMinusNumbers:=True
End Sub

nevíte prosím jak se zbavit,aby mi se mi nezobrazovala hláška " tady už data jsou, chcete je přepsat?"