Hi,

PFB the code.

Private Sub Workbook_Open()
'Application.Visible = False
Call delHyperlinks
ActiveWindow.WindowState = xlMinimized
Application.Visible = False
ContactForm.Show
End Sub