Ecco la soluzione la funzione deve essere public

public function nascondi()
msgbox "nascondi"
end function

poi la richiami così:

=SE(B1=1;nascondi();1)