Keep Text Format in Search and Replace VBA

[ilikered100]

With the following code... the Search and Replace works find except that all of the numbers are dropping the initial zero. I think I need to add some code to keep the format as text possibly, but I can't find what that code would be.

Here is the code: the replacements are returning values of "2", "3" and "4" instead of "02", "03" and "04" respectively... which is unfortunately what I need.

Sub AAP_Level_Replace()
'
' AAP_Level_Replace Macro


Selection.Replace What:="02-Level 2 (ES only)", Replacement:="02", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="03-Level 3 (ES only)", Replacement:="03", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="04-Level 4 (ES & MS)", Replacement:="04", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


End Sub

Any suggestions of what code I might be able to add to keep the zero's would be appreciated.

Carolyn

 

[JoeMo]

You can use an apostrophe, which will not be visible in the cell, but will show in the formula bar.

Example: Replacement:="'02"