Ignore 'Number Stored as Text' Error in Excel programmatically using VBA

Question

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

Answer 1

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.