Application-defined or object defined error

[dan_pafc]

Hi

Im trying to run the following code but get getting an error - it only started happening today so im guessing its as a result of an update to MS Office.

Sub ConvertTextNumberToNumber()
For Each WS In Sheets
On Error Resume Next
For Each r In WS.UsedRange.SpecialCells(xlCellTypeConstants)
If IsNumeric(r) Then r.Value = Val(r.Value)
Next
Next
End Sub

Any ideas?

 

[RoryA]

In the VB Editor, click Tools - Options, then the General tab, and make sure the Error Trapping is not set to 'Break on all errors'.

 

[dan_pafc]

Hi Rory

Yes it is - is there a recomended choice to limit problems.

Thanks

Dan.

 

[RoryA]

Either of the other options is fine - I use Break in class modules myself.

 

[dan_pafc]

Thats worked so thanks very much Rory - I read a few other forum pages before hand and all other solutions were a lot more complicated and still didnt work.

Appreciate the help!