Finde frem til cellens navn vha. VBA

hins > hints :)

Public Sub TheMacroTheUserCalls()
    Dim sCellName As String
    sCellName = FindCellName(ActiveCell)
    MsgBox sCellName
End Sub

Public Function FindCellName(ByRef rCell As Range) As String
    Dim sRetVal As String
    Dim objName As Name
   
    For Each objName In ActiveWorkbook.Names
        If objName.RefersTo = rCell.Name Then
            sRetVal = objName.Name
            Exit For
        End If
    Next objName
   
    FindCellName = sRetVal
    Set objName = Nothing
End Function

Det var lige det, jeg skulle bruge! Tusinde tak.

Tror du, at du kan give mig en kort forklaring på, hvad du gør i koden, så jeg ikke skal til at spørge igen, hvis jeg skal lave noget lign. i fremtiden?

TheMacroTheUserCalls - kalder jo funktionen og indsætter resultatet i en string.

FindCellName modtager den aktive celle - den løber så igennem alle navne der er oprettet i den aktive workbook, og når den finder en hvor RefersTo er lig aktivecelles Name så opfanges navnet i sRetVal. Funktionen bliver så sat lig sRetVal til slut, så navnet returneres til proceduren, som kaldte funktionen.

Jeg takker :)