One way is to just reset the numberformat to general and plop the value back in
the

Option Explicit
Sub testme01()

With activesheet.Range("b9")
'just test data!
.NumberFormat = "@" 'make it text
.Value = 1234

'do the real work
.NumberFormat = "General"
.Value = .Value

End With

End Sub

Trevor Fernandes wrote:

In the KB article Q291047 it is stated:

Method 1: Use the Error Button
If the cells in which numbers are displayed as text contain an error
indicator in the upper-left corner, follow these steps:
Click the cell that contains the error indicator.
Click the error button next to the cell, and then click Convert to
Number on the shortcut menu

How can I do the same thing through VBA?

Thanks
Trevor

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

--

Dave Peterson