Try





Sub ff()

Dim c As Range
Dim sTxt As String

For Each c In Range("a1:a10")
If c.Value < "" Then
Stop
sTxt$ = Mid(c.Formula, 1)
sTxt$ = Mid(sTxt, 2)
c.Value = "=If(" & sTxt & "<0," & sTxt & ","""")"

End If
Next c

End Su

--
Message posted from http://www.ExcelForum.com