La función EsPar (IsEven) nos permite evaluar los números de una celda si es par, en caso de que los números sean pares entrega en una celda asignada como “####” en caso contrario entrega como “falso”.
Para poder hacer uso de esa función se puede hacer poniendo en el editor de VBA lo siguiente:
Sub EsPar()
Numero = Worksheets("Hoja1").Range("C3").Value
Worksheets("Hoja1").Range("C5").Value = WorksheetFunction.IsEven(Numero)
End Sub
La celda a evaluar es la C3 la cual contiene el Numero evaluar que se encuentra en la Hoja1 (Worksheets) que contiene a la celda C3 (Range). En la misma hoja 1 se entrega el resultado evaluado en la celda C5. El ejemplo que se puede tener se encuentra en el archivo adjunto.
Descargar ejemplo de la función: Función WorksheetFunction.IsEven en VBA