Essas funcionalidades do F9 e F8 não conhecia

À pedido por mp:

Function CONTA_PAR_GT(rng As Range) As Integer
'4. Uma função que em uma range conte quantos números são pares?
For Each cell In rng
If cell.Value Mod 2 = 0 And Not IsEmpty(cell) Then CONTA_PAR_GT = CONTA_PAR_GT + 1
Next
End Function

Function MULTIPLICA_OU_DIVIDE_GT(numero1 As Double, numero2 As Double, escolha As Boolean) As Double
'5. Uma função que multiplique ou divida dois números conforme escolha do utilizador
If escolha = "verdadeiro" Then 'verdadeiro para multiplicar
MULTIPLICA_OU_DIVIDE_GT = numero1 * numero2
Else 'falso para dividir
MULTIPLICA_OU_DIVIDE_GT = numero1 / numero2
End If
End Function

Function MULTIPLICA_GT(numero1 As Double, numero2 As Double) As Double
'Uma função que multiplique dois números sem usar o operador multiplicação?
MULTIPLICA_GT = numero1 * numero2
End Function