How to Wrap, Center, Merge a selection of Cell Faster?

Sub wrap()
With Selection
.VerticalAlignment = xlCenter
.WrapText = True
.MergeCells = True
End With
End Sub