commandbar at workbook before close - run time error

[tango]

Dear Frank, I do not understand your reply. why you said duplicate?
can explain. thanks alot


Dear All, why beforeclose i got this message at set cmd = commandbars("Tender Bar")
run time error 91
object variable or with block variable not set?

click commandbutton works fine.
pls help.
thanks



Private Sub Workbook_BeforeClose(Cancel As Boolean)
disable
End Sub

Sub disable()
Dim cmd As CommandBar
Set cmd = CommandBars("Tender Bar")
cmd.controls("&kc").Enabled = False
End Sub


Private Sub CommandButton1_Click()
enable
End Sub

Sub enable()
Dim cmd As CommandBar
Set cmd = CommandBars("Tender Bar")
cmd.controls("&kc").Enabled = True
End Sub

 

[Tom Ogilvy]

set cmd = Application.commandbars("Tender Bar")