Key-in /s to detach all references without poping-up a modal dialog?

Couldn't  get keyin to work but recorded simple macro

keyin would be

<macro detall>

This works very well

===========================================

' detach all refs and close dialogue macro
'Lorys Lea public domain 13/11/2014
Sub main
    Dim startPoint As MbePoint
    Dim point As MbePoint, point2 As MbePoint
    MbeSendKeyin "reference detach all"
   MbeSendCommand "MBE1 CLOSEMODAL OK"
End Sub

===========================================

I could not work out how to make this a single action keyin script  because the MbeSendcommand  "MBE1 closemodel  ok"

is what does the ok really fast so you don't have to... put it on a F key and you don't type anything.

Enjoy...

You can "disable" that confirmation dialog from opening by using the "command"

mdl keyin calculat;calc userPrefsP->displayMsgPrefs.detachAllRefs=1

Then execute the command:

reference detach all

And if you want to "enable" that confirmation dialog, you can use the "command":

mdl keyin calculat;calc userPrefsP->displayMsgPrefs.detachAllRefs=0

These statements can be concatenated together in one string:

mdl keyin calculat;calc userPrefsP->displayMsgPrefs.detachAllRefs=1;reference detach all;mdl keyin calculat;calc userPrefsP->displayMsgPrefs.detachAllRefs=0

great final line - straight copy paste.

I just changed the "ALL" to only be models that had BR in the name - Reference Detach *BR*