ファイルが開いているかチェック

'# ファイルをチェックし開いている場合は閉じる

Sub main()
  If OPENCHK(ファイル名) = True Then
    Workbooks(ファイル名).Close
  End If
End Sub

Function OPENCHK(ファイル名 as string) As Boolean
  On Error GoTo ERRHdl
  Set チェック = Workbooks(ファイル名)
  OPENCHK = True
  Exit Function
ERRHdl:
  OPENCHK = False
End Function