hi
i have written follwing code

Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = ActiveSheet.Range("g:g")
For Each col In rng
col.Value = nconvert(col.Text)
Next col

'TextBox1.Text = nconvert("3500000")

End Sub
====
Function nconvert(tsh) As String
If tsh < 0 Then ' Evaluate argument.
Exit Function ' Exit to calling procedure.
Else
leftside = Left(tsh, Len(tsh) - Len(Right(tsh, 2)))
nconvert = CStr(leftside) & "." & CStr(Right(tsh, 2))

End If
End Function
my problem is if this code is run again and again
amount will go on reducing
please suggest otherwise
--
hemu