If cell equals "CR" then make cell to left negative and delete "CR".......

Originally Posted by mehmetcik

walruseggmans code would work if you inserted the two lines

On Error Resume Next

and

On Error Goto 0

The reason being that you are Deleting CR, eventually there will be no CR to find giving you an error.

you should also remove all reference to c.address for the same reason.
Turning off screen updates would make it even faster.

Sub pas()

On Error Resume Next
Set c = Range("A:BA").Find("CR", lookat:=xlWhole)
If Not c Is Nothing Then
Do
c.Offset(0, -1).Value = -c.Offset(0, -1).Value
c.ClearContents
Set c = Range("A:BA").FindNext(c)
Loop While Not c Is Nothing
End If

On Error GoTo 0
End Sub

This code worked great!! Thank you guys very much for helping me