Sub setoption()
    Application.MacroOptions Macro:="productarray", Description:="计算数组乘积", helpFile:=ThisWorkbook.Path & "\productarrayHelp.chm"
End Sub

Sub setoption()
    Application.MacroOptions Macro:="productarray", Description:="计算数组乘积", HelpFile:=ThisWorkbook.Path & "\productarrayHelp.chm"
End Sub

非常谢谢楼主

呵呵，楼主啊，怎么还是没搞定啊。我把文件放到c盘里名为11.xls，程序如下：
Public Function prodarray(list)
Dim item As Variant
prodarray = 1
For Each item In list
If WorksheetFunction.IsNumber(item) Then
prodarray = prodarray * item
End If
Next item
End Function

Sub setoption()
   Application.MacroOptions Macro:="prodarray", Description:="计算数组乘积", HelpFile:="c:\11.xls\productarrayHelp.chm"
End Sub

非常谢谢楼主