Thanks to both, very simple and neat indeed.

RBS

"Jim Cone" wrote in message
...
RBS,

If IsNull (RangeObject.MergeCells) or RangeObject.MergeCells then
MsgBox "Unmerge cells and try again. "
Exit Sub
End if
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"RB Smissaert"

wrote in message
All I want to do is determine if the sheet has merged cells or not.
It looks there somehow is a bug with FindFormat.
RBS,