UNMERGE And CENTER ACROSS

"Get rid of merged cells!"

You can read it often on this Board.

I will not open any debate on the subject, but just want to provide a solution to get rid of them automatically. Anybody who likes can refer to this thread.

WARNING
This code is changing layout.

1. Could take a while when you have sheets with large used range or a lot of merged cells. You can follow the status and can interrupt it if you want.

2. Save before executing. I'm quite sure it works good, but the result might be something else then you had in mind, especially when you are quite new to this.


Option Explicit

Sub Unmerge_CenterAcross()
'Erik Van Geit
'080808

'merged cells will be unmerged
'contents will be centered across merged area

Dim LR As Long 'Last Row
Dim LC As Integer 'Last Column
Dim i As Long
Dim j As Long