Se oculta los libros excel

Sub AUTO_OPEN()
ActiveWorkbook.Application. _
Application.Visible = False
Application.OnTime Now + TimeValue("00:00:02"), "Cerrar"
UserForm4.Show
If Sheets("Hoja4").Range("A1") = "" Then
UserForm2.Show
Else
UserForm1.Show
End If
'Menu.Show
End Sub

tengo este código pero siempre me oculta los demás libros :(

ayuda