Ayuda con este codigo

Hola, Mario Alberto !

... codigo para ocultar una hoja ... cuando selecciono otra
... agregue dos hojas ... que verifique ... y cuando seleccione la hoja "Portada" oculte las otras que esten visibles.
Trate de utilizar un array pero no me funciona Sheets(Array(Auditores, Compañias, Trabajos)).Visible = True

==> Por la forma en que haces referencia a los nombres de las hojas ("asumo" que) los "asignas" a variables "String" (???)
La propiedad "Visible" en matrices de objetos "funcionara" SI la aplicas de manera "individual" (p.e.):
Si copias las siguientes lineas en el modulo de codigo de tu hoja "Portada", hara lo que solicitas:
=Private Sub Worksheet_Activate()
Dim Hoja As Sheet
For Each Hoja In Sheets(Array(Auditores, Compañias, Trabajos))
If Hoja.Visible Then Hoja.Visible = False
Next
End Sub

==> Otra opcion seria con el siguiente codigo en los modulos de las hojas "ocultables"
Private Sub Worksheet_Deactivate()
Me.Visible = False
End Sub
_______
Saludos,
Héctor.
MS-MVP