Sub merge_range()
With Selection
For Each c In .Cells
t = t & c
Next
Application.DisplayAlerts = False
.Merge
.Value = t
Application.DisplayAlerts = True
End With
End Sub
Sub merge_range()
With Selection
For Each c In .Cells
t = t & c
Next
Application.DisplayAlerts = False
.Merge
.Value = t
Application.DisplayAlerts = True
End With
End Sub