Problems deleting tollbar

[arne]

'I want to make a new toolbar, and delete it. Problem is that it seems to be
deleted ,but
'every time I restart word it is back. If I run Sub createmytoolbar() 6
times it gives me 6
'toolbars after restart of Word ! The only way I can kill them is to delete
normal.dot!
'In word200, normal.dot i have created this

Sub createmytoolbar()
Application.CustomizationContext = NormalTemplate
Dim cBar As CommandBar
For Each cBar In Application.CommandBars 'ActiveDocument.CommandBars
If cBar.Name = "Mine" Then
MsgBox "Mine is there"
cBar.Delete
End

End If
Next cBar
MsgBox "We must make Mine!"
Call createmine
End Sub

Sub createmine()
MsgBox "Then iI have a routine for creating and it seems to work"
' routine
End Sub

What am I doing wrong??

arne

 

[Andra]

did you get 6 times "We must make Mine!" or 6 times "Mine is there", or
what?

arne wrote