Sub test()
Dim bGotMergedCells As Boolean
Dim vMerged As Variant

vMerged = ActiveSheet.Cells.MergeCells
bGotMergedCells = IsNull(vMerged) Or vMerged

MsgBox bGotMergedCells
End Sub

Regards,
Peter T

"dk" wrote in message
...
Is there any way to determine if a sheet contains mergearea(s) without
checking individual cells for MergedCell?

tia,
dk