Private Sub 12_Click() Set obj = GetObject("D:\List.xlsx") obj.Application.Visible = True obj.Parent.Windows(1).Visible = True End Sub
http://www.sql.ru/forum/1088603/oshibki-vba