Choose active page in Visio
问题 Edited: I didn't phrase this very will.. I am trying to open Visio (working) and then open a page in the document of my choosing. Thanks Dim FName As String Dim VsApp As Object On Error Resume Next Set VsApp = GetObject(, "Visio.Application") If VsApp Is Nothing Then Set VsApp = CreateObject("Visio.Application") If VsApp Is Nothing Then MsgBox "Can't connect to Visio" Exit Sub End If End If On Error GoTo 0 FName = "C:\myfile.vsd" If Not Intersect(Target, Range("c2")) Is Nothing Then VsApp