pop-up toolbar

[lior03]

hello
i found this macro of a pop up toolbar
i set it to work every 30 seconds.

Sub POPUP_EXAMPLE()
Application.OnTime Now + TimeSerial(0, 0, 30), "POPUP_EXAMPLE"
Dim popUpBar As CommandBar
Dim newButton As CommandBarControl
On Error Resume Next
CommandBars("Pop UP Bar").Delete
On Error GoTo 0
Set popUpBar = CommandBars _
.Add(Name:="Pop Up Bar", Position:=msoBarPopup)
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 67
.OnAction = "autofitAll"
.Caption = "auto fit "
End With
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 69
.OnAction = "savemode"
.Caption = "last save"
End With
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 78
.OnAction = "numberformation"
.Caption = "cell's number format"
End With
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 196
.OnAction = "dillan"
.Caption = "cell's font"
End With
popUpBar.ShowPopup
End Sub

why do i get an roor message every time i exit excel to another application?
thanks

[Bob Phillips]

hello
i found this macro of a pop up toolbar
i set it to work every 30 seconds.

> snip

why do i get an roor message every time i exit excel to another application?
thanks

Because it needs the window to be active to show the popup.

But what is the point of this, why would you want to do it this way?