Private Sub Workbook_Open() Application.VBE.MainWindow.Visible = True Me.VBProject.VBComponents("Module1").Activate End Sub