'ブックにボタンを配置し、ボタンに名前を付けて実行しています。ので、****Clickとなります。 '***** 例:プログラム実行ファイルを開く → 今開いているフォームのファイルを閉じる ***** Private Sub btn_FileOpen_Click() Dim exl_Path, exl_File As String '変数に「パス」「ファイル名」代入 exl_Path = "\\192.168.*.**\支払依頼書\" exl_File = "支払依頼書作成プログラム.xlsm" 'xlsmファイルが開かれているか確認 Workbooks.Open FileName:=exl_Path & exl_File, Notify:=False If Err.Number > 0 Then ' Else If ActiveWorkbook.ReadOnly = True Then '開かれていたら何もしない Else '支払依頼書作成プログラムOpen(ファイルを開く) Workbooks.Open exl_Path & exl_File, Notify:=False End If End If