Add 001 to a cell using VBA

[soood]

Hi all, I need to add a "serial number" number to a cell using VBA. I am able to start at 1 and add one to it for each record, but I need it to be in the format 001, and then next time I need to be able to add 1 to that number for 002.

Below is a snippet of my code, I really just need an easy method of making excel recognize the leading zeros in a 3 digit serial number.

With ws
.Cells(lRow, 1).Value = ????
end with

Thanks!

 

[AlphaFrog]

You could format the column that you are putting the "serial numbers in as Custom "000"

   Columns("A").NumberFormat = "000"