セルを結合するマクロで表示されるメッセージの回避

マクロで
.meargeCells=true　
によって結合使用とすると
「選択範囲には複数のデーター値があります、、、」
のメッセージがでます。セルを結合する回数が多いのでいちいちOKボタンを押しているわけに行かないので
このメッセージがでないようにするにはどうしたらよいでしょうか。

No.1 ベストアンサー 回答者： kigoshi 回答日時： 2005/12/01 21:28

直前に

Application.DisplayAlerts = False
を入れておけばＯＫかな。

結合が終わったらTrueに戻しておいた方がよろしいかと思います。

うまくできますように。

No.2 回答者： imogasi 回答日時： 2005/12/01 21:56

＃１のご回答が正解ですが

Sub test02()
Dim cl As Range
n = 0
For Each cl In Range("b3:c4")
If n = 0 Then
Else
cl = ""
End If
n = n + 1
Next
Range("b3:c4").MergeCells = True
End Sub
のような発想も可能かと。
マージされるセルを空白にして、セルを結合する。