Sub test()
Dim cb As CommandBar
Dim cmd As CommandBarControl
Dim app As Excel.Application
Dim cp As VBIDE.CodePane
Set app = GetObject(, "Excel.Application")
Set cb = app.VBE.CommandBars("Debug")
app.VBE.ActiveVBProject.VBComponents("Module1").Activate
'Have to use AppActivate from Word, but probably don't need to from RD
AppActivate app.VBE.MainWindow.Caption
Set cp = app.VBE.ActiveCodePane
cp.SetSelection 11, 1, 11, 1
Set cmd = cb.FindControl(, 186)
cmd.Execute
'Return focus to Word's VBE