Excel Pivot Table Number Formatting with single click (Excel VBA)

Ever wonder how to quickly format your pivot table number (especially currencies)? the usual way is to right click within pivot tables number field anywhere in PT and choose Numer Format and apply desired number format but what if you have to do that quite often or you have so many Microsoft Excel Pivot tables in a worksheet? You can apply VBA code (quite small) as shown in tutorial here