Hi M,

I want to merge two cells and that new cell to fill with "asdf".
How could I do that?

Avoiding the temptation to respomd "Don't!", because there are all kinds of
potential problems associated with the use of merged cells, try:

'=============
Public Sub Tester001()
Dim rng As Range

Set rng = Range("A1:B1") '<<==== CHANGE
With Range("B14:C14")
.ClearContents
.Item(1).Value = "asdf"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With

End Sub
'<<============



---
Regards,
Norman



"mpele" wrote in
message ...

I want to merge two cells and that new cell to fill with "asdf".
How could I do that?


--
mpele
------------------------------------------------------------------------
mpele's Profile:
http://www.excelforum.com/member.php...o&userid=31808
View this thread: http://www.excelforum.com/showthread...hreadid=520454