Hi Art,

Try:

Range("rngTest").MergeArea.ClearContents


---
Regards,
Norman


"ArthurJ" wrote in message
...
I have merged cells A1..C1 and named it rngTest.
I enter data into rngTest.

Range("rngTest").ClearContents
'Generates Error 1004 Cannot change part of a merged cell.

Range("rngTest").Select 'or Activate
Selection.ClearContents
'Runs successfully.

This sure seems bizarre. Does your machine perform like mine? Any
suggested
workarounds? I would prefer NOT to select these cells programmatically.

Art