At hente textbox navne via VB i excel

Er det indholdet eller er det navnet du skal bruge.

værdi = textbox.text /* hvis det er indholdet
værdi = textbox.name /* hvis det er navnet du vil have fat i

det kan også være :
værdi = textbox.tostring()

Er tekstboksene oprettet på basis af kontrolelementer eller ???

Boksene er indsat som kontrolelementer hvis jeg husker korrekt.

Opgaven er:

Vi har 100+ regneark hvor der i hvert er indsat nogle textbokse som er navngivet forskelligt fra ark til ark.

Vi vil gerne have lavet en funktion som kan finde alle tekstboxe i et regneark, og retunere hver boks' navn.

VBA-koden indsættes i ThisWorkbook (Alt+F11 / ThisWorkbook)

Public Sub findTekstbokse()
Dim obj As Object, liste As String
    liste = ""
    For Each ark In ActiveWorkbook.Sheets
        For Each obj In ark.OLEObjects
            liste = liste + ark.Name + " " + obj.Name + vbCr
        Next
    Next
   
    MsgBox (liste)
End Sub

Super, tak for det. Sætter virkelig pris på den hurtige hjælp.

Selv tak...