Open the Run Macro Dialog
acCmdRunMacro
This routine opens the Run Macro Dialog box so that the user can select a Macro to be run.
'***************** Code Start *******************
' Code by Terry Wickenden
Sub MacroRun()
On Error GoTo ErrRunMacro
DoCmd.RunCommand acCmdRunMacro
Exit Sub
ErrRunMacro:
Select Case Err
Case 2046
'Command not available
MsgBox "Macro can not run at this time.", vbCritical, "Not Available"
Case 2501
'Cancel selected in dialog box - do nothing
Case Else
MsgBox Err.Number & ":-" & vbCrLf & Err.Description
End Select
Exit Sub
End Sub
'****************** Code End ********************