-------- snip here, press ALT + F11, insert module, put
code in ---------
Option Explicit
Public Function IsMerged(varRange As Variant, varCell As
Variant) As Boolean
'True if varCell belongs to merged cell range varRange,
'false if varRange not merged or varCell not part of
varRange
Dim ivarRange As Variant
IsMerged = False
For Each ivarRange In varRange
If ivarRange.MergeCells And ivarRange.Address =
varCell.Address Then
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.