Dim action As New WSInputMapAction
Dim actions As New WSInputMapActionSequence
action.ActionID = InputMapActionID_RunMacroAction 'Run Reflection Desktop macro action
action.AddParameter "Module1.TestMacro" 'Parameter 1 - macro modulename.macroName
action.AddParameterAsInteger MacroEnumerationOption_Common 'Parameter 2 - VBA macro project from VBA Common project
action.AddParameterAsBoolean False 'Parameter 3 - prompt for macro selection at runtime
actions.Add action ' add action to action sequence
Set ThisFrame.WorkspaceSettings.WorkspaceDefaults.StartupAction = actions