Reformatting Text to Number

[LittleMissRedK]

I need to go through all the cells in a sheet and check to see if they are numbers formatted as text and then reformat them as numbers if they are. Someone suggested this:

Sub Macro1()
For Each C In UsedRange.Cells
If IsNumeric(C) Then
C.Value = Val(C)
End If
Next
End Sub

But it doesn't run. Suggestions?

 

[wigi]

Hello

Welcome to MrExcel.

UsedRange needs to work on say, ActiveSheet, or another valid worksheet reference.

I would try:

Sub Macro1()    For Each C In ActiveSheet.UsedRange.SpecialCells(2, 2)
        C.Value = Val(C)
    Next
End Sub

PS: Please use code tags when you paste VBA code on the forum.
To add code tags, you can click the # icon and paste your code.


Or, a manual approach is, to type in your post:

then paste your code, and lastly, type:


['/code]


WITHOUT the single quotation mark ' in front of the /


Thanks for the consideration.