Non serve che la macro sia dichiarata come Function, puoi tranquillamente dichiararla come Sub, visto che non restituisce alcun risultato al codice chiamante.

In ogni caso, visto che il parametro è solo uno, devi eliminare le parentesi nella chiamata:

codice:
mediapag Worksheets("casa")
Oppure utilizzare la parola chiave Call:

codice:
Call mediapag (Worksheets("casa"))
Boolean