VBA to Add Pivot Table Calculated Field from a selected range

[jduley]

I've grown tired of adding calculated fields to a pivot table using the traditional method and I would instead prefer to write my formulas in a worksheet and use VBA to add them to the pivot. I'm familiar with adding calculated fields with VBA but I want to be able to add multiple fields by selecting a range and I'll need it to handle errors which I'm sure to make. Any ideas?