Found the source for the function.

LIVEJOURNAL
VBA_CORNER
Dated 24 August 2009

https://vba-corner.livejournal.com/5311.html