Implement a Formula into a Range with VBA

Hi Everyone!

I'm very new to VBA, so please bear with me!

I have a series of numbers starting from E2 and down, and I'm trying to apply the following formula to it using VBA:

=IF(LEN(E2)=1,"000"&E2,IF(LEN(E2)=2,"00"&E2,IF(LEN(E2)=3,"0"&E2,IF(LEN(E2)=4,E2))))

Basically what I want it to do is to take the current number in E2, and convert it to a #### format.

So if E2 = 3, then I would like it to says 0003 instead.
If E3 = 14, then I would like it to says 0014 instead.

Can someone helps me complete this?

I would very appreciate it!

Thanks!

Hello
I'm not sure if you want to apply your formula in another column adjacent to column E or if you're trying to format column E numbers with leading zeros. If the latter, then try the following code:

Please Login or Register  to view this content.

Here the range E2:E20 on Sheet1 is formatted.

Hope this helps.
DBY

THANK YOU!!! This is an excellent solution, and more efficient than I expect!