Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　共有フォルダに存在するブックを開く(xlDialogOpen)
'
'  Copyright(C) 2000 Sunago
'
'　　EXCEL標準の「開く」ダイアログを利用する際に
'　ネットワーク上の共有フォルダーを最初に表示させる方法です。
'　　ftpやhttpも試してみましたがダメなようです。
'　Microsoft Networkサービスの共有ディレクトリに
'　対してのみ有効です。
'

Sub Macro1()
    Application.Dialogs(xlDialogOpen).Show _
        arg1:="\\<Server Name>\<Share Directory>\"
End Sub