From 730b2667d32555298cdfcd9e96748b80cf652427 Mon Sep 17 00:00:00 2001
From: fleetside72 <fleetside72@hotmail.com>
Date: Wed, 5 Apr 2017 09:53:14 -0400
Subject: [PATCH] Update FL.bas

---
 FL.bas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/FL.bas b/FL.bas
index af07673..e1ca323 100644
--- a/FL.bas
+++ b/FL.bas
@@ -357,6 +357,7 @@ errh:
 
     
 End Sub
+
 Sub CollapsePvtItem()
 
 On Error GoTo show_det
@@ -464,7 +465,7 @@ drill_down:
 errh:
 
 End Sub
-                        
+
 Sub ColorMatrixExtract()
 
     Dim s() As String
@@ -515,4 +516,11 @@ Sub ColorMatrixExtract()
 
 End Sub
 
+Sub SetPivotShortcutKeys()
 
+    Call Application.MacroOptions("PERSONAL.xlsb!CollapsePvtFld", "", , , , "A")
+    Call Application.MacroOptions("PERSONAL.xlsb!CollapsePvtItem", "", , , , "Z")
+    Call Application.MacroOptions("PERSONAL.xlsb!ExpandPvtFld", "", , , , "S")
+    Call Application.MacroOptions("PERSONAL.xlsb!ExpandPvtItem", "", , , , "X")
+
+End Sub