Sub Auto_open()
If Application.Visible = False Then
    'This is where the magic happens
    Application.Quit
End If
End Sub