determine if sheet contains mergearea(s)
 

Is there any way to determine if a sheet contains mergearea(s) without
checking individual cells for MergedCell?

tia,
dk

determine if sheet contains mergearea(s)
 

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

determine if sheet contains mergearea(s)
 

If cells.MergeCells = Null then
' contains merged cells
elseif cell.MergeCells = True then
' whole sheet is one big merged cell
elseif cell.MergeCells = False
' no merged cells
End if



--
Regards,
Tom Ogilvy


"dk" wrote:

Is there any way to determine if a sheet contains mergearea(s) without
checking individual cells for MergedCell?

tia,
dk

determine if sheet contains mergearea(s)
 

that first line should be

if isNull(cells.MergeCells) then

--
Regards,
Tom Ogilvy


"dk" wrote:

Is there any way to determine if a sheet contains mergearea(s) without
checking individual cells for MergedCell?

tia,
dk

determine if sheet contains mergearea(s)
 

Thanks

"Tom Ogilvy" wrote:

that first line should be

if isNull(cells.MergeCells) then

--
Regards,
Tom Ogilvy


"dk" wrote:

Is there any way to determine if a sheet contains mergearea(s) without
checking individual cells for MergedCell?

tia,
dk