This is just an example that you can adapt for your use. It assumes that
Sheet1 conains in column A the numbers that you want to replace. It assumes
that Sheet2 contains the translation table (column A has the number and
column B has the description):

Sub descriptions()
Sheets("Sheet1").Activate
Set s2 = Sheets("Sheet2")
n = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To n
v = Cells(i, 1).Value
For j = 1 To 100
If v = s2.Cells(j, 1).Value Then
Cells(i, 1).Value = s2.Cells(j, 2).Value
End If
Next
Next
End Sub

--
Gary''s Student - gsnu200773


"Joey" wrote:

Each month many of us receive an auto-export in Excel that contains data that
we use to create charts and Pivot Tables from. One of the columns contains
numbers that reference a description that is not stored on the database that
contains the export.

We receive about 1000 records and what I have been doing is performing a
Search and Replace but now there are 100 descriptions!

I used to work with VLookup but was wondering if anyone has done something
like this with a macro as well.

I have Excel 2003