Vamos criar uma função que calcule a média de dois números, para isso vamos ir no VBA e digitar a seguinte função:

Function Calcula_media(a As Double, b As Double) As Double
  Calcula_media = (a + b) / 2
End Function

Para chamar essa função basta digitar em qualquer célula do excel conforme abaixo:

=Calcula_media(A1;A2)

Supondo que na célula A1 tenha 10 e na célula A2 tenho 15 o resultado dessa fórmula será : 12,5

Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.