Delete button Workbook_BeforeClose, create button Workbook_Open

[Koen]

Hi, how can I delete an activeX button, listbox and textbox when I close the workbook and create this controls again when I open the workbook?

 

[Sektor]

Delete:

Sub DeleteOle()
    Dim ole As OLEObject
    For Each ole In Sheet1.OLEObjects
        If TypeOf ole.Object Is MSForms.CommandButton Or _
                TypeOf ole.Object Is MSForms.ListBox Or _
                TypeOf ole.Object Is MSForms.TextBox Then
           ole.Delete
        End If
    Next
End Sub

To create ActiveX, you need to create procedures for these objects programmatically. It's hard way, and it's better use Form controls.