Hi Edward,

Try:

'=============
Public MoveMinus()
Dim rCell As Range
Dim rng As Range

On Error Resume Next
Set rng = ActiveSheet.Range("A1:A10")
On Error GoTo 0

For Each rCell In rng
With rCell
If IsNumeric(.Value) Then
.Value = CDbl(.Value)
End If
End With
Next rCell

End Sub
'<<=============

---
Regards,
Norman



"edwardpestian"
wrote in message
news:edwardpestian.2a3snz_1151483403.6853@excelfor um-nospam.com...

I have a range of cells A1:A10 in which data is pasted from AS400. The
data is pasted in a 2340- format for a negative number. What I'm
looking for is when the data is pasted into these cells, for excel to
automatically change the format from 2340- to <2340.

Thanks.

ep


--
edwardpestian
------------------------------------------------------------------------
edwardpestian's Profile:
http://www.excelforum.com/member.php...o&userid=33809
View this thread: http://www.excelforum.com/showthread...hreadid=556362