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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> news:[email protected]...
> > 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" <[email protected]> wrote in message
news:uqRF%[email protected]...
>
> 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" <[email protected]> wrote in message
> news:[email protected]...
> > 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.
>
>