Acessing name box labels

[andyhutch119]

hi
I've created a spreadsheet that populates data from an access data base which stores time_sheet details for staff. The first column/row holds the persons name,also I use the name box to store the their employee number using this code
'// Insert Label reference for each team member
Range(.Cells(introw, mintStartcol), _
.Cells(introw, mintStartcol)).Select
ActiveWorkbook.Names.Add Name:="Empid_1221" _
, RefersToR1C1:= _
Range(.Cells(introw, mintStartcol), _
.Cells(introw, mintStartcol))
Is there a way to access the name for this cell "Empid_1221" if I know the row and column so as to assign it to a variable in my procedure

Thanks for any help

 

[PHV]

A starting point:
For Each n In ActiveWorkbook.Names
If n.RefersTo = Cells(row,column).Name.RefersTo Then
MsgBox n.Name
End If
Next

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[andyhutch119]

Thanks PHV I give this a try.

 

[SkipVought]

Hi,

If, as you illustrated, you already assigned the name to that range (row, col), then, Cells(row, col).Value IS the range name.

Skip,

_{[red]Sign above the facsimile apparatus at the music publisher:[/red]
If it ain't baroque...
Don't FAX it!}

 

[PHV]

Really Skip ?
In XL2003, french version, debug window:
? Cells(4,4).Value
azerty
? Cells(4,4).Name
=Feuil1!$D$4
? ActiveWorkbook.Names("myRange").RefersTo
=Feuil1!$D$4

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[SkipVought]

You're correct

Skip,

_{[red]Sign above the facsimile apparatus at the music publisher:[/red]
If it ain't baroque...
Don't FAX it!}