VBA copy cell value but add leading zeros

[Ironman]

Hi

I have the following line of code

Sheets("Indoor Bike").Range("J" & Lr2).Value = "Session " & Sheets("Indoor Bike").Range("E5") & ".  "

I'd be grateful for an amendment to this so the Range("J" & Lr2).Value copied is in the format 0000 i.e. leading zeros for values less than 1000 e.g. instead of "Session 345. " it will be "Session 0345. "

Many thanks!

 

[jasonb75]

Try

Sheets("Indoor Bike").Range("J" & Lr2).Value = "Session " & Format(Sheets("Indoor Bike").Range("E5").Value, "0000") & ".  "

 

[Ironman]

Hi Jason, that's perfect! Thanks ever so much once again!