Attribute VB_Name = "BFCheck"
Option Explicit
'To Use:       Simply paste this code into a new VBA module of your workbook.
'How it works: It sets up an Auo-Open macro which runs automatically when you open the workbook,
'              and from this it calls a little VBA function that uses a BF function to establish the
'              presence of Business Functions and its version number.
'Note:         You can only have one Auto-Open subroutine per workbook, so if you've already got one
'              then just add the function call to the existing Auto_Open sub.
Sub Auto_Open()
    BFCheck (1.3)
End Sub

Sub BFCheck(RequiredVersion)
    On Error GoTo handler
    Dim result
    result = Run("BFVer")
    If IsError(result) Or result < RequiredVersion Then GoTo handler
    Exit Sub
handler:
    MsgBox ("This workbook requires Business Functions version " _
    & Format(RequiredVersion) + vbCr + "You can download this for free at " _
    & "www.businessfunctions.com")
End Sub