Hooking up a CHM file to xl2007

[Rasm]

This worked great - here is the code to bring up the entire CHM file

Public Sub ReadHelpFile(Language)
    'http://www.excelguru.ca/content.php?166
    Dim MyHelpFile As String
    MyHelpFile = ThisWorkbook.Path & "\NameOfFile.chm"
    If Dir(MyHelpFile, vbNormal) <> "NameOfFile.chm" Then
        Astr = MyHelpFile
        Call Message109(Language, Astr)
        Exit Sub
    End If
    Application.Help MyHelpFile
End Sub