Private Sub Workbook_Open()







    'Opens the VBA Editor







    'Call Open_VBA_Editor







End Sub























Private Sub Open_VBA_Editor()







    Application.CommandBars.FindControl(ID:=1695).Execute







End Sub