Want to be a web developer? You'll need to know HTML. Prepare for HTML5 certification by enrolling in July's Course of the Month! It's free for Premium Members, Team Accounts, and Qualified Experts.
'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.