hi all,
How can i optimized this code?
it multiply selected area with 1 (results is, that all values are numbers)
this code works, but it takes a lot of time if is selected bigger area .
thank youSub text_to_number() Const erate = 1 Dim cell As Range Application.ScreenUpdating = False For Each cell In Selection If IsNumeric(cell.Value) And LenB(cell.Value) Then cell.Value = cell.Value * erate Next cell Application.ScreenUpdating = True End Sub