More efficient way to format a column?

Hi -

Does anyone know of a more efficient way to code this formatting of a column? It works fine, I just wanted to know if there is a better way of doing this.

Thanks!

Just a piece of the code:

'   Column B
    Columns("B:B").ColumnWidth = 14.71
    Columns("B:B").Select
    Selection.NumberFormat = "ddd h:mm"
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With