How to sum values in Excel only from visible cells

There is a good article in microsoft support site for this problem and the example works fine.

How to use a VBA Macro to Sum Only Visible Cells

see also how to create user defined functions (UDF)
in Excel