Depurando mi codigo

Hola a todos, actualmente en el macro Auto_Open() tengo:
dim hoja As Worksheet

For Each hoja In ThisWorkbook.Worksheets
If hoja.Name <> "CAPTURA" And hoja.Name <> "CONTROL" _
And hoja.Name <> "CHEQUES" And hoja.Name <> _
"DEPOSITOS" And hoja.Name <> "CARGOS" And _
hoja.Name <> "SALDOS_GLOBALES" And _
hoja.Name <> "CONTROL" And hoja.Name <> _
"TRASPASOS" And hoja.Name <> "TRANSFERENCIAS" And _
hoja.Name <> "SDO_DIARIO" Then
Application.DisplayAlerts = False
hoja.Delete
End If
Next hoja

estoy tratando de utilizar array para simplificar pero no se como decir que
mis hojas deben estar dentro de array he escrito :

hojas as variant

Hojas = Array("CAPTURA", "CHEQUES", "DEPOSITOS", "CONTROL", _
"TRASPASOS", "CARGOS", "TRANSFERENCIAS", "SALDOS_GLOBALES", _
"SDO_DIARIO")

creo que debe ser algo como
"por cada hoja en este libro
si la hoja no es parte de HOjas then
application.displayalerts=false
sheets.delete
next

Gracias