如何自動跳過詢問框?

adam2010

請教各位高手~
我錄製了一段資料剖析的巨集，但是執行中途會出現是否取代目標儲存格的詢問框，請問要如何自動跳過，謝謝！
    Columns("N:P").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("M:M").Select
    Selection.TextToColumns Destination:=Range("M1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="~", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
        '出現詢問框→如何自動確認

Hsieh

回復 1# adam2010

關閉系統對話方塊
Application.DisplayAlerts = False

adam2010

原來是這樣，感謝您!