Find page number of cell - speed up code

Dear all,

I found this great (well, somewhat) piece of code, but it's very slow. Does anyone have an idea how to speed it up?

I found it at: http://www.mcgimpsey.com/excel/udfs/pagenumber.html

Here's the code:

Please Login or Register  to view this content.

For your information, I found out that the line:

Please Login or Register  to view this content.

... is absolutely killer for the speed of Excel all together. This is something I found out only recently and therefore haven't written a workaround, but I know where it's going wrong.