Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
'test for valid OLEobject - linked word doc bFound = False For Each oOLEobj In ActiveSheet.OLEObjects If oOLEobj.Name = "LinkedWordDoc1" Then bFound = True Exit For End If Next 'display associated word doc If bFound Then ActiveSheet.OLEObjects("LinkedWordDoc1").SourceName = "Word.Document.12|" & sWordDoc & "!'" Else 'recreate OLE object With ActiveSheet.Shapes.Range(Array("LinkedWordDoc1")) 'THIS IS WHERE THE PROBLEM IS!!!!!!! End With End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.