Find and Replace

[saidineshbabu]

2 Tables in 2 different sheets.
Sheet1:
Table 1:

Name	Gender
John	Male
Richard	Male
Clara	Female

Sheet2:
Table 2:

University	Grad	Name
XYZ	MS	John
XYZ	MS	George
XYZ	MS	Clara
XYZ	MS	John
XYZ	MS	John
XYZ	MS	Clara

I need the table 2 to be changed to the following through macro:

University	Grad	Name
XYZ	MS	Male
XYZ	MS	Male
XYZ	MS	Female
XYZ	MS	Male
XYZ	MS	Male
XYZ	MS	Female

Any help would be highly appreciated.

[JOHN H. DAVIS]

Maybe:

Sub saidineshbabu()
Dim i As Long, x As Long
Dim ws As Worksheet, ws2 As Worksheet
Set ws = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")
x = ws.Range("A" & Rows.Count).End(3).Row
With ws2
    For i = 2 To x
        .Columns(3).Replace ws.Range("A" & i).Value, ws.Range("B" & i).Value
    Next i
End With
End Sub

[saidineshbabu]

Cool thanks. This worked.

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback.