Sub ChangeSign()

Dim c As Range
For Each c In
ActiveSheet.Range("C2:C65000").SpecialCells(xlCell TypeConstants)
If c.Offset(0, -1).Value = "Sales" Then c.Value = c.Value * -1
Next c
Set c = Nothing

End Sub

--
Dianne

In ,
goss typed:
Hi ng.
All apologies for the re-post

Using xl xp pro
Would like to change value in col c neg/pos or pos/neg
If condition is true in col b
Col b should be tested for "sales" or "opc" (w/o ""'s)
If criteria is not satisfied, value in c shold be left as is.

I condition is satisfied by col b adjacent cell in col c
Should have reverse sign (+/-)

Ex:
=================================================
Begin Data-
A B C
1 Sales 90500

End Data-
A B C
1 Sales -90500
=================================================

"Sales" encountered in col b so adjacent cell col c, converted to neg

Prefer VBA if possbile so store in "personal.xls" in xlstart
This code would have multiple applications for me.

tia
goss