Cómo aplicar una Macro de desprotección de celdas a un Rango condicionando la lectura en las celdas?

Hola a todos espero me puedan ayudar tengo la siguiente instrucción en VBA para desproteger celda en caso de que se utilice otra, pero quiero hacerlo para un rango de celdas determinado, el detalle es que no encuentro la manera de acondicionarla para que no haga una listota de indicaciones por cada celda, al utilizar c33 desproteja c34, y al usar c34 me desproteja c35 asi hasta c38

Sub protección()

If Range("c33").Value <> "" Then

ActiveSheet.Unprotect "123"

Range("c34").Locked = False

ActiveSheet.Protect "123"

Exit

Sub ElseIf Range("c33").Value = "" Then

ActiveSheet.Unprotect "123"

Range("a34:c38").Locked = True

ActiveSheet.Protect "123"

End If

End Sub