With Activesheet
For i = LBound(ary) To UBound(ary)
Replace(Cells,ary(i,0),ary(i,1))
Next i
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Fred Kalil" wrote in message
ups.com...
Hi all

I'm trying to devise a way to reference and update from a table of data
to random areas in the worksheet.

For e.g.

If I have a table of data :-

AB1 John
AB2 Doe
AB3 Mary

I want to any references in the worksheet that has AB1 or AB2 or AB3 to
find and replace it with the approriate names. And if changes were made
to the names, all the references will be updated accordingly.

I'm a begineer in VBA but I did manage to read up on multi-dimensional
arrays but I'm stuck on how to reference this arrays to the approriate
fields in the worksheet.

Do need help here.

Thanks

Fred Kalil