Hi there,

I am trying to develop a macro which performs a mass find/replace of
numbered street suffixes. For example:

"1st" = "1"
"2nd" = "2"
..
..
..
"3th" = "3'"

I am fairly familiar with VBA. However I have not really used it in the
excel environment before. So far I have created a user form that asks the
user to input the column in which the address field is located (A, B, C,
etc...) and then I have written some code to select that column. The next
step would be to loop through this column to find the street suffixes and
replace them with their substitutions. I am assuming I would now have to use
the Find() and Replace() functions to do this, but I am having a bit of a
hard time doing this. So here is what I have so far.

------------------------------------------------
Private Sub CB1_Click()
Dim AddressRange As Range
Dim sUserRange As String

sUserRange = TB1.Text

ActiveSheet.Columns(sUserRange).Select

End Sub
------------------------------------------------

Its not much, but I do not know how to use the find/replace functions.

Any help would be excellent.

Jordan