VBA - Desabilitar Msgbox automatica

[BrunoMJoia]

Pessoal boa tarde,

 

Preciso da ajuda de vocês, tenho uma macro para copiar dados de uma coluna e colar em outra, e após isso utilizo o comando de texto para colunas.

Acontece que durante a execução da macro, aparece uma msgbox automática do Excel.

 Preciso de um comando para desabilitar a msgbox e deixar a macro rodando lisa.

Podem ajudar?

 

Sub Macro1()
    Application.ScreenUpdating = False
    Columns("G:G").Select
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Range("C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("F2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
End Sub

 

 

TESTE.xlsx.xlsx

[BrunoMJoia]

Application.DisplayAlerts = False

 

Resolvido!!