copy from personal macrobook

FL.bas

@@ -2108,3 +2108,20 @@ Sub load_index()
 
 End Sub
 
+
+
+Sub DataStyles()
+
+    Dim cb As Workbook
+    Dim cs As Worksheet
+    Dim sty As Worksheet
+
+    Set cb = ActiveWorkbook
+    Set cs = ActiveSheet
+
+    Workbooks("PERSONAL.XLSB").Sheets("Styles").Copy Before:=cs
+    Set sty = ActiveSheet
+    sty.Visible = xlSheetHidden
+    cs.Activate
+
+End Sub