Hello all,
sorry for late reply. Just wanted to thank all of you who
contributed help. I tested the info and works great. So
once again thanks to all of you for taking the time.

Have a greatt end of week.

Juan
-----Original Message-----
Jake Marx wrote:
This line of code works for me:

Worksheets("Sheet1").Columns
(1).Replace "* ", "Total "

My fault - as Myrna and Norman pointed out, you should
preface the * with a
~:

Worksheets("Sheet1").Columns
(1).Replace "~* ", "Total "

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address
unmonitored]

.