VBA HELP - "If Sheet has no Meged Cells Do Nothing, If Merged Cells then Run Code" Excel 2013

[magnum5az]

Hello All,

I am working on a piece of code that will look at a specific sheet and if there are merged cells present run a code to remove all merged cells and move a header, if no merged cells exist on the sheet then do nothing.

Here is what I've come up with but need the "Case" or "If/Then" code

Sub ReOrgData()

    Dim Sourcesht As Worksheet
    
    Set Sourcesht = Sheets("AR Aging-Combined Property")
    
    
    Sourcesht.Cells.Select
    Selection.UnMerge
    Range("B2:B4").Select
    Selection.Cut
    Range("A2").Select
    ActiveSheet.Paste
    Rows("7:7").Select
    Selection.Delete Shift:=xlUp
    Application.CutCopyMode = False



End Sub

Thanks in advance for any help on this.

 

[DushiPunda]

No, it is correct as originally written. Cells.MergeCells will return False if no merged cells exist, True if all cells are involved in a merge (a highly, highly unlikely scenario) and Null if the sheet contains a mixture of merged and non-merged cells. Since the mixture of merged and non-merged cells is what we are after (I completely discount a True result as such a sheet would be ridiculous), we need to test if Cells.MergeCells returns Null... IsNull does that (it will return True when MergeCells is Null).

Interesting...thanks for schooling me!