add align right

[g48dd]

Excel 2003: I have this code, I need align right after, Columns("B").NumberFormat = "0", the way I have it it won't work I need Variable?

    Sheets("Num & %").Select
    Range("A12").Select
    Application.Goto Reference:="R12C1:R120C2"
    Selection.Copy
    ActiveSheet.Next.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Columns("B").NumberFormat = "0"
    HorizontalAlignment = xlRight
    Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
End Sub

 

[VoG]

Try

With Columns("B")
    .NumberFormat = "0"
    .HorizontalAlignment = xlRight
End With