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

tia,
dk

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" <(E-Mail Removed)> wrote in message
news:E21BB721-9CB0-4D56-B3C6-(E-Mail Removed)...
> Is there any way to determine if a sheet contains mergearea(s) without
> checking individual cells for MergedCell?
>
> tia,
> dk

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

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

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