VBA: replace numbers in one column with text

[FryGirl]

For the sake of learning a new technique in VBA, the code below works fine to replace certain numbers with text, but can it be converted into an array construct where it uses Lbound and Ubound? Is there a better method?

[FONT=arial]Sub ReplaceNumbers()[/FONT]
[FONT=arial]    Dim c As Range[/FONT]
[FONT=arial]    For Each c In Range("A2", Range("A" & Rows.Count).End(xlUp))[/FONT]
[FONT=arial]        Select Case c.Value[/FONT]
[FONT=arial]        Case 1[/FONT]
[FONT=arial]            c.Value = "Working Project"[/FONT]
[FONT=arial]        Case 2[/FONT]
[FONT=arial]            c.Value = "Delayed Project"[/FONT]
[FONT=arial]        Case 3[/FONT]
[FONT=arial]            c.Value = "Completed Project"[/FONT]
[FONT=arial]        End Select[/FONT]
[FONT=arial]    Next c[/FONT]
[FONT=arial]End Sub[/FONT]

 

[FryGirl]

Thank you Peter.

Those comments are very valuable and will truly help in understanding the different codes and there unintended consequences.

Actually, I should say, possibly my lack of being able to articulate my requirements.

 

[hiker95]

Peter,

Thanks for your reply #10.

 

[Peter_SSs]

Peter,

Thanks for your reply #10.

You are welcome. However, your response gave me reason to look back at that post and I was surprised by my own (red) timing values as I was sure that Evaluate over such a large range & done 3 times would not be that fast. I looked back at my original test results and realised that I misplaced the decimal point when writing the result of your code to my post. I have edited that post now to make the correction.