I want to store text such as '001234' in a cell. I have set the number format of this cell to text. After storing, an error 'Number Stored as Text' is shown in the form of a green triangle at the top left corner of the cell. It is very disturbing and I want it to be removed programmatically.
Consider:
Sub Macro1()
Application.ErrorCheckingOptions.NumberAsText = False
End Sub
This is a single line of a much larger macro to configure Excel when I begin working on a new computer.
-
+1 I tried looking for that a while ago. The following wouldn't work for me:
Application.Range(Item.Address).Errors.Item(xlNumberAsText).Ignore = True
. Thank you! – Brian Aug 25 '17 at 10:55 -
You can select the range you want to work and then put for example (now added speechmarks):
Range("A1:Z20").Application.ErrorCheckingOptions.NumberAsText = False
-
1That seems to turn it off for the entire workbooks, and not limit it only to the particular range. – Ron Rosenfeld Mar 1 '18 at 13:31
-
1I agree with your observation, because the Range object has an Application property which refers to the Application in which that range exists. That line is essentially the same as just typing Application.ErrorCheckingOptions.NumberAsText = False – Ejaz Ahmed Apr 10 '18 at 18:28
The above examples turn off the "number stored as text" checking for the application.
This code will turn it off for a particular cell:
range("G93").Errors.Item(xlnumberastext).Ignore = True
Alternately, instead of formatting the cell as text, you could format the cell as 000000 to get the leading 0's to show.
-
There may be good reason for storing the number as text, though, such as matching using VLOOKUP etc. – Matt Wenham Jan 23 '18 at 16:25