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