Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
'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
Join the community of 500,000 technology professionals and ask your questions.