I got a runtime error 58 file not found.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub Workbook_Activate()
Call AddToCellMenu
End Sub
Private Sub Workbook_Deactivate()
Call DeleteFromCellMenu
End Sub
Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime Dtime, “Refresh”, , False
If Not Me.Saved Then
If MsgBox(“Do you want to save ” & Me.Name, vbYesNo) = vbYes Then
Me.Save
End If
End If
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
‘Public Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” _
‘ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
‘ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long _
‘ ) As Long
Sub HistogramCM(control As IRibbonControl)
RetVal = Shell(ThisWorkbook.Path & “\HistogramPlus\HistogramPlus.exe /1002”, 1)
End Sub
‘*************************************************
Sub Help(control As IRibbonControl)
RetVal = Shell(ThisWorkbook.Path & “\HistogramPlus\HistogramPlus.exe /1003”, 1)
‘ ShellExecute 0, “Open”, “http://www.metrics-institute.com/avibenita/OneClick-Pareto/P+-web/index.html#”, “”, “”, 1
End Sub
Sub Aabout(control As IRibbonControl)
RetVal = Shell(ThisWorkbook.Path & “\HistogramPlus\HistogramPlus.exe /612”, 1)
End Sub
Sub ContactUs(control As IRibbonControl)
RetVal = Shell(ThisWorkbook.Path & “\HistogramPlus\HistogramPlus.exe /613”, 1)
End Sub
Sub Order(control As IRibbonControl)
On Error Resume Next
RetVal = Shell(ThisWorkbook.Path & “\HistogramPlus\HistogramPlus.exe /614”, 1)
End Sub