Excel VisualBasic Script

Sub numFormat()
    Columns("A:A").NumberFormat = "0.00%"
End Sub