Does this could help you ?

Sub CopyToMergedCells()


Set Origin = Range("D1")
Set dest = Range("B1")

dest.Select 'To Select Merged Cells if it is the case

With Selection
If .MergeCells = False Then

Origin.Copy dest

Else

.ClearContents
.MergeCells = False

Origin.Copy dest

.MergeCells = True

End If

End With

End Sub

Mishell


"PPL" a écrit dans le message de news:
...
I do realize that merged cells are bad news.

I'm stuck with an Excel 2003 worksheet, which contains this dreaded
feature. Users are complaining that on trying to paste text into merged
cells gives Excel Warnings:

"Data on the Clipboard is not the same size and shape as the selected
area. Do you want to paste anyway?"

And:

"Cannot change part of a merged cell."



Interestingly, though if the user hits F2, which places the cursor in the
formula bar, then the paste operation works!



I'm usually reasonably of Ok with VBA; but this one is stumping me.

Using VBA, I'm trying to (1) find a way of firstly trapping the Excel
Application warning(s) above and then, once trapped (2) placing the cursor
in the formula bar and finally (3) Paste the clipboard into the formula
bar.



Has anyone any ideas please?



TIA



Phil