Why is my function working in the immediate window but not in a cell?

Question

I tried to build my own function in order to calculate the average of only the visible cells in a filtered list and came up with this simple function:

Function Vi