Range("A1:D1").Select
With Selection
.MergeCells = True
End With
Range("A1").Select
With Selection
'.MergeCells = False <--- Error Object Required
.UnMerge 'Correct
End With
Я предпочитаю понимать странные вещи, как это.Мне кажется противоречием то, что свойство может быть установлено как True, но не False.