How to suppress a message box from popping up during a macro
Hi Norbert,
Am Tue, 6 Apr 2021 03:39:55 -0700 (PDT) schrieb Norbert:
Unfortunately, I'm getting the exact same popup message.
My code right now:
Sub MELANGE_YARN_DELIVERY()
Application.ScreenUpdating = False
Range("I13:K13").Select
ActiveSheet.Unprotect
Selection.ClearContents
Range("F13").TextToColumns Destination:=Range("I13"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="+", _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
for me following code works even if there are values in I13:K13:
With ActiveSheet
.Unprotect
.Range("I13:K13").Clear
.Range("F13").TextToColumns Destination:=.Range("I13"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="+", _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
End With
Regards
Claus B.
--
Windows10
Microsoft 365 for business
|