Hi,

You could try this, it works for me:

Cells.Replace What:="[*]", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
--
Thanks,
Shane Devenshire


"Jignesh Gandhi" wrote:

Hi

Thanks for your reply. But I want to do it programmatically and not
using the menu option. I have mentioned it in my post.

Thanks
Jignesh Gandhi