With oVisio
Set oVisioDocuments = oVisio.Documents
Set oVisioDocument = oVisioDocuments.Open(FileName:="Filename")
oVisioDocument.ExecuteLine "myVisioMacro"
End With

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Jason V" wrote in message
...
My Excel VBA program opens a visio application. From there I either want
to
run a macro in that Visio file or I want to code it in my excel program.
Any
help? Thanks.
--
Jason V