860to864: Positionsverschiebung Commandbar bei Msgbox

Hallo,
ich erstelle bei Aktivierung einer Zelle in Spalte 2 eine Commandbar:
Set mybar = CommandBars.Add(Name:="myshortcut", Position:=msoBarPopup, temporary:=True)
Set myitem = mybar.Controls.Add(Type:=msoControlButton)
With myitem
.Caption = "xyz"
.BeginGroup = False
.FaceId = 395
.OnAction = "zxt"
End With
dabei wird die Commandbar unterhalb der aktivierten Zelle gezeigt.
Nun ist es jedoch notwendig vorab noch eine Msgbox zu zeigen. Wird jedoch der Ok-button der Msgbox mit der Maus betätigt, findet sich die Commandbar plötzlich mitten im Sheet wieder.
Wer kann helfen?
Danke.
Matthias