如何在使用VBA将数据分隔为列时自动接受弹出消息？

我正在尝试将单元格中的数据分隔为列，我使用vba执行此操作，但在运行代码时，会出现一条弹出消息，要求我接受，我不需要接受某些内容，因为我正在运行代码以获得所需内容。 代码如下：

Sub Separaren4()

 Range("AZ3").TextToColumns Destination:=Range("AZ3"), 
 DataType:=xlFixedWidth, _
 FieldInfo:=Array(Array(0, 1), Array(9, 1), Array(19, 1), Array(29, 1)), _
 TrailingMinusNumbers:=True

End Sub

尝试添加

Application.EnableEvents = False

在代码之前，然后将其设置为True

Sub Separaren4()
Application.EnableEvents = False
 Range("AZ3").TextToColumns Destination:=Range("AZ3"), 
 DataType:=xlFixedWidth, _
 FieldInfo:=Array(Array(0, 1), Array(9, 1), Array(19, 1), Array(29, 1)), _
 TrailingMinusNumbers:=True
Application.EnableEvents = True
End Sub

---

占领前先清理场地

Sub Separaren4()
    With Range("AZ3")
        .Resize(,4).EntireColumn.Clear 
        .TextToColumns Destination:=.Cells, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(9, 1), Array(19, 1), Array(29, 1)), TrailingMinusNumbers:=True
   End With
End Sub