Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim c As CommandBar
On Error GoTo ErrorHandler
Set c = Application.CommandBars("Find")
c.Delete
Exit Sub
ErrorHandler:
ErrorHandler
End Sub
Private Sub Workbook_Open()
Dim b As CommandBarButton, c As CommandBar
On Error GoTo ErrorHandler
'Add SheetSelector Button Bar
Set c = Application.CommandBars.Add("Find", , , True)
'Add Button to new buttonbar, adjust attributes
Set b = c.Controls.Add(msoControlButton, , , , True)
b.Style = msoButtonCaption
b.Caption = "Find"
b.OnAction = "FindData"
c.Visible = True
c.Position = msoBarTop
Exit Sub
ErrorHandler:
ErrorHandler
End Sub
Sub ErrorHandler()
Select Case Err.Number
Case 5
End
Case Else
MsgBox Err.Number & " " & Err.Description
End Select
End Sub