I need a macro to do the following in B3:B500
If(right(......,5)="Total"
Delete Right(........,6)

Hope this is clear

something like

for each c in selection
if right(c,5)="Total" then c.value=left(c,len(c)-5)
next

--
Don Guillett
SalesAid Software

"Esrei" wrote in message
...
I need a macro to do the following in B3:B500
If(right(......,5)="Total"
Delete Right(........,6)

Hope this is clear