Replace Number with Text using Macro
 

I need help replacing a number with text using a Macro.

For example: I need to replace numbers in Column B with text

Replace 212 with "Sike Branch Manager"
Replace 154 with "So County Manager"
Replace 188 with "Bridge Manager"

Any help would be greatly appreciated.

Sub ReplaceEm()
Dim iLastRow As Long
Dim i As Long

iLAstRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
WIth Cells(i,"A").
Select Case Value
Case 212 : .Value = "Sike Branch Manager"
Case 154 : .Value = "So County Manager"
Case 188 : .Value = "Bridge Manager"
'etc
End Select
End With
Next i
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Carter68" wrote in message
...
I need help replacing a number with text using a Macro.

For example: I need to replace numbers in Column B with text

Replace 212 with "Sike Branch Manager"
Replace 154 with "So County Manager"
Replace 188 with "Bridge Manager"

Any help would be greatly appreciated.

I am getting a compile error with this line.........

With Cells(i,"A")

"Bob Phillips" wrote:


Sub ReplaceEm()
Dim iLastRow As Long
Dim i As Long

iLAstRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
WIth Cells(i,"A").
Select Case Value
Case 212 : .Value = "Sike Branch Manager"
Case 154 : .Value = "So County Manager"
Case 188 : .Value = "Bridge Manager"
'etc
End Select
End With
Next i
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Carter68" wrote in message
...
I need help replacing a number with text using a Macro.

For example: I need to replace numbers in Column B with text

Replace 212 with "Sike Branch Manager"
Replace 154 with "So County Manager"
Replace 188 with "Bridge Manager"

Any help would be greatly appreciated.

Typo

Sub ReplaceEm()
Dim iLastRow As Long
Dim i As Long

iLAstRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
WIth Cells(i,"A")
Select Case .Value
Case 212 : .Value = "Sike Branch Manager"
Case 154 : .Value = "So County Manager"
Case 188 : .Value = "Bridge Manager"
'etc
End Select
End With
Next i
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" wrote in message
...

Sub ReplaceEm()
Dim iLastRow As Long
Dim i As Long

iLAstRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
WIth Cells(i,"A").
Select Case Value
Case 212 : .Value = "Sike Branch Manager"
Case 154 : .Value = "So County Manager"
Case 188 : .Value = "Bridge Manager"
'etc
End Select
End With
Next i
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Carter68" wrote in message
...
I need help replacing a number with text using a Macro.

For example: I need to replace numbers in Column B with text

Replace 212 with "Sike Branch Manager"
Replace 154 with "So County Manager"
Replace 188 with "Bridge Manager"

Any help would be greatly appreciated.