Question

Is there a way to check if an OLEObject has a LinkedCell property? For example labels and buttons don’t have linkedcells while others do. I am trying to write a piece of code that can replace the linkedCells by looping through all the OLEObjects in a sheet. Thanks in advance.

Answer 1

You have to do the standard VBA technique of catching an error to test the LinkedCell property.

Public Sub test()

Dim cntl As Object
On Error Resume Next

For Each cntl In ActiveSheet.OLEObjects
Debug.Print cntl.Name

If IsError(cntl.LinkedCell) Then
    Debug.Print "No Linked Cell"
Else
    Debug.Print "Linked Cell"
End If

Next cntl

End Sub

The following is the picture of proof that it worked, on a blank Excel sheet, with four different controls.