VBA to add leading zero.

Thank you all for your help, I have gone with Rick's last submission with a little edit :-D

Worksheets(1).Columns("A").NumberFormat = "@"
[A1:A57] = [IF(LEN(A1:A57),TEXT(A1:A57,"00"),"")]