ProgId Property Example

This example creates a list of the programmatic identifiers for the OLE objects on worksheet one.

rw = 0
For Each o in Worksheets(1).OLEObjects
    With Worksheets(2)
        rw = rw + 1
        .cells(rw, 1).Value = o.ProgId
    End With
Next