¿Código VBA que cambia el nivel de zoom según el texto/objeto en la hoja?

Question

Todo,

He estado buscando código VBA que logre lo siguiente:

1. Establece el zoom al 80% para las hojas de trabajo que contienen una determinada palabra clave
2. Establece el zoom al 60% para las hojas de trabajo que contienen una imagen
3. Establece el zoom al 85% para todas las demás hojas de trabajo

Aquí está el código que he estado intentando manipular para adaptarlo a este desafío en particular, con mis comentarios fuera del código indicando lo que me gustaría cambiar:

 Sub ZoomAll() 
   Dim ws As Worksheet  
    Application.ScreenUpdating = False 
    For Each ws *with a picture* In Worksheets 
        ws.Activate
        ActiveWindow.Zoom = 60
    Next
    For Each ws *that contains X text* In Worksheets 
        ws.Activate
        ActiveWindow.Zoom = 80
    Next
    For Each ws *that contains Y text* In Worksheets 
        ws.Activate
        ActiveWindow.Zoom = 85
    Next
    Application.ScreenUpdating = True
    End Sub

Para una determinada entrega en mi trabajo, el gerente prefiere que ciertas hojas dentro de un libro de Excel tengan diferentes niveles de zoom dependiendo de lo que contenga la hoja. Pude encontrar código VBA que establece un zoom uniforme en todas las hojas, pero estoy buscando ayuda para escribir código que sea un poco más flexible y me permita variar el zoom dependiendo de lo que contenga la hoja.

¡Gracias!