Return Single Cell Address From Range

I have a list of ID's on one sheet that are also located in a large matrix on another sheet.

This macro uses the Find_Range function to find each ID within the matrix and return the column header where the ID was first located.
There is also a line which return a list of ranges, indicating all the places where the ID was found.

What I want is to convert the list of ranges into a list of corresponding column headers (ie row 1 of all columns in the range)


' Number of id's in list
RowCnt = Application.WorksheetFunction. CountA(Columns("A"))

For I = 2 To RowCnt

LookFor = Sheets("ID List").Range("A" & I)
Set InRng = Sheets("Matrix").Cells
Set Found = Find_Range(LookFor, InRng, xlValues, xlWhole)
On Error Resume Next ' If value is not found
Sheets("RateID Count").Range("C" & I) = Sheets("Matrix") _
.Cells(1, Range(Found.Address).Column) ' Return column header
Sheets("ID List").Range("D" & I) = Found.Address(False, False) ' Return cell address or range of addresses
On Error Goto 0

Next I