Hi,

Am Fri, 24 Jul 2015 22:37:54 -0700 (PDT) schrieb :

Example is
" EURO -491.15

So I just want it to appear in cells as
-491.15

try:

Sub Replace()
Dim LRow As Long
Dim rngC As Range

LRow = Cells(Rows.Count, 4).End(xlUp).Row
For Each rngC In Range("D2:D" & LRow)
rngC = Mid(rngC, InStr(rngC, "-"))
Next
End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional