I have two columns. One column is having standard names (suppose product names), in second column i have the same names but in capital/ or some other format( maybe that some letters are capital & some are small).

Now i want to match the names in column2 against the standard names in column 1 & replace by the standard names.

Please suggest....

Yogesh

__________________
Yogesh

Here is a simpe replacement way:

Sub Replace_TExt()


  For i = 1 To ActiveSheet.Range("B:B").Cells.SpecialCells(xlCell TypeLastCell).Row

    If Trim(ActiveSheet.Range("B" & i)) <> "" Then

        ActiveSheet.Range("A:A").Replace What:=ActiveSheet.Range("B" & i), Replacement:=ActiveSheet.Range("B" & i).Value, _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
        False, ReplaceFormat:=False

    End If

  Next i
End Sub

Cheers
Shasur

http://www.vbadud.blogspot.com