Find a merged cell

[Jimbob]

Hi All
How can I programmatically find and select a single merged cell in a
spreadsheet. The sheet doesn’t have a continuous area but there is only one
merged cell in a variable row from A:N.

Many Thanks

 

[Gary''s Student]

Sub findmerge()
For Each r In ActiveSheet.UsedRange
If r.MergeCells = True Then
r.Select
Exit Sub
End If
Next
End Sub

 

[Jimbob]

Thanks - it works a treat and is much more elegant than my "creations".
You guys are so good and quick in responding. What a service.

 

[Gary''s Student]

Responding is fun, try it.