Convert merged cells to centered across

I am using Office 2003 on Windows XP.

I need a VBA function I can call that visits every cell in the active sheet
and converts any merged cells to "center across selection" instead.
Obviously, I need it to run quickly.

Can someone please post example code to accomplish this?

Thanks much in advance.

Nevermind. I managed to work out the code.

"XP" wrote:

> I am using Office 2003 on Windows XP.
>
> I need a VBA function I can call that visits every cell in the active sheet
> and converts any merged cells to "center across selection" instead.
> Obviously, I need it to run quickly.
>
> Can someone please post example code to accomplish this?
>
> Thanks much in advance.