Public Sub FindReplace(strSheetName As String, strSrch As String, strReplace As String, lngCol)
With ThisWorkbook.Worksheets(strSheetName)
.UsedRange.Columns(lngCol).Replace strSrch, strReplace, xlWhole
End With
End Sub
'In this sub just pass the number of the search and replace text
Public Sub callFindReplace()
FindReplace "Sheet9", "have", "1", 10
FindReplace "Sheet9", "and", "2", 10
FindReplace "Sheet9", "not", "3", 10
FindReplace "Sheet9", "in", "4", 10
FindReplace "Sheet9", "after", "5", 10
End Sub