I forgot to mention that my code also will vertically
merge multiple areas. It doesn't seem necessary to
programmatically act on each area separately in your
code. For example, if you select the ranges A1:C5, D1:F5,
G1:I5 using the <Ctrl button and run my macro then all
cells will be vertically merged.

Regards,
Greg