WorksheetFunction.And (Excel)
Retorna true se todos os seus argumentos forem verdadeiros; retorna false se um ou mais argumentos são falso.
Os argumentos devem ser avaliados como valores lógicos, como verdadeiro ou falso, ou os argumentos devem ser matrizes ou referências que contenham valores lógicos. Se um argumento de matriz ou referência contiver texto ou células vazias, esses valores serão ignorados. Se o intervalo especificado não contiver valores lógicos, este método gerará um valor de erro.
And (Arg1, Arg2, ..., Arg30)
Dim booAnd As Boolean
booAnd = WorksheetFunction.And(Arg1:=)