VBA code for 2-digit month is very slow

[bukimi]

Hello,

I need to add a column, which takes a date and changes it into 2-digit month number (January -> 01, April -> 04, December -> 12, etc.)
It needs not only to be shown/visible as such (like via custom date cell format), but cell contents really need to be these two digits only - stored as text, because otherwise 01 will be automatically converted to 1.

I got a working code like that:

Sub ChangeDateToText()
Dim DateString As String
Dim c As Range

For Each c In Selection
c.NumberFormat = "@"
DateString = Format(Month(c), "00")
c = DateString
Next c

End Sub

It does the trick, but goes cell by cell, which is really slow and annoying.
Anyone maybe has a more simple way to do that, or can make code above influence whole column at once?

 

[Fluff]

How about

Sub bukimi()
   With Selection
      .NumberFormat = "@"
      .Value = Evaluate(Replace("if(@="""","""",text(month(@),""00""))", "@", .Address))
   End With
End Sub

 

[bukimi]

Works excellent. Magic
Tried breaking that function into steps, but didn't manage to with my current knowledge (mainly the IF part), so I'm taking it as it is.
Thank you!

 

[Fluff]

You're welcome & thanks for the feedback.