From ac530a079ff93e7321dadd8cb79ed33740156eed Mon Sep 17 00:00:00 2001
From: Paul Trowbridge <ptrowbridge@hc-companies.com>
Date: Mon, 6 Nov 2017 13:26:33 -0500
Subject: [PATCH] add auto fit & format pivot

---
 FL.bas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/FL.bas b/FL.bas
index 3cc10f1..97e7b9b 100644
--- a/FL.bas
+++ b/FL.bas
@@ -625,3 +625,15 @@ Sub sql_from_range()
     Call wapi.ClipBoard_SetData(x.SQLp_build_sql_values(x.ARRAYp_get_range_string(Selection), False))
 
 End Sub
+
+Sub auto_fit_range()
+    
+    Selection.CurrentRegion.Columns.AutoFit
+
+End Sub
+
+Sub pivot_field_format()
+
+    ActiveSheet.PivotTables("PivotTable1").PivotFields(ActiveCell.value).NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
+
+End Sub
\ No newline at end of file