split cells up if merged

crmpicco · May 4th, 2005, 09:55 AM

Is there any code that will split cells up that have been merged?

I need to do this for a whole workbook at the start of a Sub.

Is this possible?

Thanks.

Picco

www.crmpicco.co.uk
www.crmpicco.co.uk.tt
www.milklemonadechocolate.uk.tt
www.griswolds.uk.tt
www.piccosmini.co.uk.tt
www.morton.uk.tt

mjppaba · May 4th, 2005, 10:06 AM

Cells.MergeCells = False

cheers
Matt

mjppaba · May 4th, 2005, 10:12 AM

alternatively if I slowed down a bit and read the question properly, the answer would have been something more like

myShtCnt = Worksheets().Count
myloop = 1
    Do Until myloop > myShtCnt
        Sheets(myloop).Select
        Cells.MergeCells = False
        myloop = myloop + 1
    Loop

mjppaba · May 4th, 2005, 10:13 AM

Of course I am presuming you don't have any hidden worksheets!

crmpicco · May 4th, 2005, 10:25 AM

Example
This example separates the merged range that contains cell A3.

With Range("a3")
    If .MergeCells Then
        .MergeArea.UnMerge
    Else
        MsgBox "not merged"
    End If
End With

www.crmpicco.co.uk
www.crmpicco.co.uk.tt
www.milklemonadechocolate.uk.tt
www.griswolds.uk.tt
www.piccosmini.co.uk.tt
www.morton.uk.tt