Hi Mike Thanks for that - worked a treat. Tim "
Mike H" wrote in message news:917C4C78-7A4D-46C2-98D8-855FDE889AF0@microsof t.com... > Hi, > > Run this code and they will be listed in column A > > Sub marine() > Dim OleObj As OLEObject > x = 1 > For Each OleObj In ActiveSheet....