If you want to permanently change the values and overwrite the
existing values, select the cells to change and run the following
code:

Sub AAA()
Dim R As Range
Application.EnableEvents = False
For Each R In Selection.Cells
With R
If .HasFormula = False Then
If IsNumeric(.Value) Then
.Value = CDbl(Replace(CStr(.Value), _
".", vbNullString))
End If
End If
End With
Next R
Application.EnableEvents = True
End Sub

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)




On Fri, 4 Sep 2009 06:52:01 -0700, Kardock
wrote:

hi all,

i need to change a value in a cell by removing a dot

for example, i need to convert 2.01 to 201

i can't find the correct formula to achieve my goal. i tried replace and
substitute but it ain't working.

can someone help?

thanks!