SHARE
TWEET

faster_fantasy_sort

a guest Aug 23rd, 2019 124 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub center_shapes_in_cells()
  2. Dim Row As Integer
  3. Dim Shp As Shape
  4. Dim myShapes As Object
  5. Set myShapes = Selection.ShapeRange
  6.  
  7. For Each Shp In myShapes
  8.     Shp.Select
  9.  
  10.     Dim vSel As Variant
  11.     Dim rngZ As Range
  12.  
  13.     Set vSel = Selection
  14.     If VarType(vSel) = vbObject Then
  15.         With vSel
  16.             Set rngZ = .TopLeftCell
  17.             .Height = rngZ.MergeArea.Height - 5
  18.             .Top = rngZ.Top + (rngZ.MergeArea.Height - .Height) / 2
  19.             .Width = rngZ.MergeArea.Width - 5
  20.             .Left = rngZ.Left + (rngZ.MergeArea.Width - .Width) / 2
  21.             .ShapeRange.LockAspectRatio = msoFalse
  22.             .Placement = xlMoveAndSize
  23.             .PrintObject = True
  24.         End With
  25.         rngZ.Select
  26.     End If
  27. Next
  28. End Sub
  29.  
  30.  
  31. Sub ESPNRank()
  32. '
  33. ' ESPNRank Macro
  34. '
  35. With Application
  36.     .ScreenUpdating = False
  37.     .EnableEvents = False
  38.     .Calculation = xlCalculationManual
  39.     .DisplayAlerts = False
  40. End With
  41.  
  42. Dim setclick As String
  43.  
  44. setclick = Worksheets("Overall").Range("L2").Value
  45.  
  46. Range("L2").Value = False
  47.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  48.         Clear
  49.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  50.         Key:=Range("Table1[[#All],[ESPN Rank]]"), SortOn:=xlSortOnValues, Order:= _
  51.         xlAscending, DataOption:=xlSortNormal
  52.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  53.         .Header = xlYes
  54.         .MatchCase = False
  55.         .Orientation = xlTopToBottom
  56.         .SortMethod = xlPinYin
  57.         .Apply
  58.     End With
  59.        Worksheets("Overall").Range("L2").Value = setclick
  60.  
  61. With Application
  62.     .ScreenUpdating = True
  63.     .EnableEvents = True
  64.     .Calculation = xlCalculationAutomatic
  65.     .DisplayAlerts = True
  66. End With
  67.  
  68. End Sub
  69.  
  70. Sub NFLadp()
  71. '
  72. ' ECR Macro
  73. '
  74. With Application
  75.     .ScreenUpdating = False
  76.     .EnableEvents = False
  77.     .Calculation = xlCalculationManual
  78.     .DisplayAlerts = False
  79. End With
  80.  
  81. Dim setclick As String
  82.  
  83. setclick = Worksheets("Overall").Range("L2").Value
  84.  
  85. Range("L2").Value = False
  86.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  87.         Clear
  88.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  89.         Key:=Range("Table1[[#All],[NFL ADP]]"), SortOn:=xlSortOnValues, Order:= _
  90.         xlAscending, DataOption:=xlSortNormal
  91.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  92.         .Header = xlYes
  93.         .MatchCase = False
  94.         .Orientation = xlTopToBottom
  95.         .SortMethod = xlPinYin
  96.         .Apply
  97.     End With
  98.        Worksheets("Overall").Range("L2").Value = setclick
  99.  
  100. With Application
  101.     .ScreenUpdating = True
  102.     .EnableEvents = True
  103.     .Calculation = xlCalculationAutomatic
  104.     .DisplayAlerts = True
  105. End With
  106.  
  107. End Sub
  108. Sub Sort5PPR()
  109. '
  110. ' ECR Macro
  111. '
  112. With Application
  113.     .ScreenUpdating = False
  114.     .EnableEvents = False
  115.     .Calculation = xlCalculationManual
  116.     .DisplayAlerts = False
  117. End With
  118.  
  119. Dim setclick As String
  120.  
  121. setclick = Worksheets("Overall").Range("L2").Value
  122.  
  123. Range("L2").Value = False
  124.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  125.         Clear
  126.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  127.         Key:=Range("Table1[[#All],[0.5PPR]]"), SortOn:=xlSortOnValues, Order:= _
  128.         xlAscending, DataOption:=xlSortNormal
  129.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  130.         .Header = xlYes
  131.         .MatchCase = False
  132.         .Orientation = xlTopToBottom
  133.         .SortMethod = xlPinYin
  134.         .Apply
  135.     End With
  136.        Worksheets("Overall").Range("L2").Value = setclick
  137.  
  138. With Application
  139.     .ScreenUpdating = True
  140.     .EnableEvents = True
  141.     .Calculation = xlCalculationAutomatic
  142.     .DisplayAlerts = True
  143. End With
  144.  
  145.  
  146. End Sub
  147. Sub ECR()
  148. '
  149. ' ECR Macro
  150. '
  151. With Application
  152.     .ScreenUpdating = False
  153.     .EnableEvents = False
  154.     .Calculation = xlCalculationManual
  155.     .DisplayAlerts = False
  156. End With
  157.  
  158. Dim setclick As String
  159.  
  160. setclick = Worksheets("Overall").Range("L2").Value
  161.  
  162. Range("L2").Value = False
  163.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  164.         Clear
  165.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  166.         Key:=Range("Table1[[#All],[ECR]]"), SortOn:=xlSortOnValues, Order:= _
  167.         xlAscending, DataOption:=xlSortNormal
  168.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  169.         .Header = xlYes
  170.         .MatchCase = False
  171.         .Orientation = xlTopToBottom
  172.         .SortMethod = xlPinYin
  173.         .Apply
  174.     End With
  175.        Worksheets("Overall").Range("L2").Value = setclick
  176.  
  177. With Application
  178.     .ScreenUpdating = True
  179.     .EnableEvents = True
  180.     .Calculation = xlCalculationAutomatic
  181.     .DisplayAlerts = True
  182. End With
  183.  
  184.  
  185. End Sub
  186. Sub ESPNadp()
  187. '
  188. ' ESPNadp Macro
  189. '
  190. With Application
  191.     .ScreenUpdating = False
  192.     .EnableEvents = False
  193.     .Calculation = xlCalculationManual
  194.     .DisplayAlerts = False
  195. End With
  196.  
  197. Dim setclick As String
  198.  
  199. setclick = Worksheets("Overall").Range("L2").Value
  200.  
  201. Range("L2").Value = False
  202.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  203.         Clear
  204.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  205.         Key:=Range("Table1[[#All],[ESPN ADP]]"), SortOn:=xlSortOnValues, Order:= _
  206.         xlAscending, DataOption:=xlSortNormal
  207.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  208.         .Header = xlYes
  209.         .MatchCase = False
  210.         .Orientation = xlTopToBottom
  211.         .SortMethod = xlPinYin
  212.         .Apply
  213.     End With
  214.        Worksheets("Overall").Range("L2").Value = setclick
  215.  
  216. With Application
  217.     .ScreenUpdating = True
  218.     .EnableEvents = True
  219.     .Calculation = xlCalculationAutomatic
  220.     .DisplayAlerts = True
  221. End With
  222.  
  223.  
  224. End Sub
  225. Sub ECRadp()
  226. '
  227. ' ECRadp Macro
  228. '
  229. With Application
  230.     .ScreenUpdating = False
  231.     .EnableEvents = False
  232.     .Calculation = xlCalculationManual
  233.     .DisplayAlerts = False
  234. End With
  235.  
  236. Dim setclick As String
  237.  
  238. setclick = Worksheets("Overall").Range("L2").Value
  239.  
  240. Range("L2").Value = False
  241.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  242.         Clear
  243.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  244.         Key:=Range("Table1[[#All],[ECR ADP]]"), SortOn:=xlSortOnValues, Order:= _
  245.         xlAscending, DataOption:=xlSortNormal
  246.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  247.         .Header = xlYes
  248.         .MatchCase = False
  249.         .Orientation = xlTopToBottom
  250.         .SortMethod = xlPinYin
  251.         .Apply
  252.     End With
  253.        Worksheets("Overall").Range("L2").Value = setclick
  254.  
  255. With Application
  256.     .ScreenUpdating = True
  257.     .EnableEvents = True
  258.     .Calculation = xlCalculationAutomatic
  259.     .DisplayAlerts = True
  260. End With
  261.  
  262.  
  263. End Sub
  264. Sub RnkSkew()
  265. '
  266. ' ECRadp Macro
  267. '
  268. With Application
  269.     .ScreenUpdating = False
  270.     .EnableEvents = False
  271.     .Calculation = xlCalculationManual
  272.     .DisplayAlerts = False
  273. End With
  274.  
  275. Dim setclick As String
  276.  
  277. setclick = Worksheets("Overall").Range("L2").Value
  278.  
  279. Range("L2").Value = False
  280.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  281.         Clear
  282.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  283.         Key:=Range("Table1[[#All],[ECR Skew]]"), SortOn:=xlSortOnValues, Order:= _
  284.         xlAscending, DataOption:=xlSortNormal
  285.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  286.         .Header = xlYes
  287.         .MatchCase = False
  288.         .Orientation = xlTopToBottom
  289.         .SortMethod = xlPinYin
  290.         .Apply
  291.     End With
  292.        Worksheets("Overall").Range("L2").Value = setclick
  293.  
  294. With Application
  295.     .ScreenUpdating = True
  296.     .EnableEvents = True
  297.     .Calculation = xlCalculationAutomatic
  298.     .DisplayAlerts = True
  299. End With
  300.  
  301.  
  302. End Sub
  303.  
  304.  
  305. Sub Test()
  306. Dim s As Shape
  307. On Error Resume Next
  308. For Each s In ActiveSheet.Shapes
  309. s.Placement = xlMoveAndSize
  310. Next
  311. End Sub
  312. Sub ESPNrnkkk()
  313. '
  314. ' ESPNrnkkk Macro
  315. '
  316. With Application
  317.     .ScreenUpdating = False
  318.     .EnableEvents = False
  319.     .Calculation = xlCalculationManual
  320.     .DisplayAlerts = False
  321. End With
  322.  
  323. Dim setclick As String
  324.  
  325. setclick = Worksheets("Overall").Range("L2").Value
  326.  
  327. Range("L2").Value = False
  328.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  329.         Clear
  330.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  331.         Clear
  332.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  333.         Key:=Range("Table1[[#All],[ESPN]]"), SortOn:=xlSortOnValues, Order:= _
  334.         xlAscending, DataOption:=xlSortNormal
  335.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  336.         .Header = xlYes
  337.         .MatchCase = False
  338.         .Orientation = xlTopToBottom
  339.         .SortMethod = xlPinYin
  340.         .Apply
  341.     End With
  342.        Worksheets("Overall").Range("L2").Value = setclick
  343.  
  344. With Application
  345.     .ScreenUpdating = True
  346.     .EnableEvents = True
  347.     .Calculation = xlCalculationAutomatic
  348.     .DisplayAlerts = True
  349. End With
  350.  
  351.  
  352. End Sub
  353. Sub ESPNprj()
  354. '
  355. ' ESPNprj Macro
  356. '
  357. With Application
  358.     .ScreenUpdating = False
  359.     .EnableEvents = False
  360.     .Calculation = xlCalculationManual
  361.     .DisplayAlerts = False
  362. End With
  363.  
  364. Dim setclick As String
  365.  
  366. setclick = Worksheets("Overall").Range("L2").Value
  367.  
  368. Range("L2").Value = False
  369.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  370.         Clear
  371.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  372.         Key:=Range("Table1[[#All],[ESPN Prj]]"), SortOn:=xlSortOnValues, Order:= _
  373.         xlDescending, DataOption:=xlSortNormal
  374.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  375.         .Header = xlYes
  376.         .MatchCase = False
  377.         .Orientation = xlTopToBottom
  378.         .SortMethod = xlPinYin
  379.         .Apply
  380.     End With
  381.      Worksheets("Overall").Range("L2").Value = setclick
  382.  
  383. With Application
  384.     .ScreenUpdating = True
  385.     .EnableEvents = True
  386.     .Calculation = xlCalculationAutomatic
  387.     .DisplayAlerts = True
  388. End With
  389.  
  390.  
  391. End Sub
  392. Sub ECRprj()
  393. '
  394. ' ECRprj Macro
  395. '
  396. With Application
  397.     .ScreenUpdating = False
  398.     .EnableEvents = False
  399.     .Calculation = xlCalculationManual
  400.     .DisplayAlerts = False
  401. End With
  402.  
  403. Dim setclick As String
  404.  
  405. setclick = Worksheets("Overall").Range("L2").Value
  406.  
  407. Range("L2").Value = False
  408.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  409.         Clear
  410.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  411.         Key:=Range("Table1[[#All],[ECR Prj]]"), SortOn:=xlSortOnValues, Order:= _
  412.         xlDescending, DataOption:=xlSortNormal
  413.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  414.         .Header = xlYes
  415.         .MatchCase = False
  416.         .Orientation = xlTopToBottom
  417.         .SortMethod = xlPinYin
  418.         .Apply
  419.     End With
  420.      Worksheets("Overall").Range("L2").Value = setclick
  421.  
  422. With Application
  423.     .ScreenUpdating = True
  424.     .EnableEvents = True
  425.     .Calculation = xlCalculationAutomatic
  426.     .DisplayAlerts = True
  427. End With
  428.  
  429.  
  430. End Sub
  431. Sub TierSrt()
  432. '
  433. ' TierSrt Macro
  434. With Application
  435.     .ScreenUpdating = False
  436.     .EnableEvents = False
  437.     .Calculation = xlCalculationManual
  438.     .DisplayAlerts = False
  439. End With
  440.  
  441. Dim setclick As String
  442.  
  443. setclick = Worksheets("Overall").Range("L2").Value
  444.  
  445. Range("L2").Value = False
  446.  
  447.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  448.         Clear
  449.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  450.         Key:=Range("Table1[[#All],[Std Tier]]"), SortOn:=xlSortOnValues, Order:= _
  451.         xlAscending, DataOption:=xlSortNormal
  452.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  453.         .Header = xlYes
  454.         .MatchCase = False
  455.         .Orientation = xlTopToBottom
  456.         .SortMethod = xlPinYin
  457.         .Apply
  458.     End With
  459.      Worksheets("Overall").Range("L2").Value = setclick
  460.  
  461. With Application
  462.     .ScreenUpdating = True
  463.     .EnableEvents = True
  464.     .Calculation = xlCalculationAutomatic
  465.     .DisplayAlerts = True
  466. End With
  467.  
  468.  
  469. End Sub
  470.  
  471. Sub TierPPR()
  472. '
  473. ' tierPPR Macro
  474. '
  475. With Application
  476.     .ScreenUpdating = False
  477.     .EnableEvents = False
  478.     .Calculation = xlCalculationManual
  479.     .DisplayAlerts = False
  480. End With
  481.  
  482. Dim setclick As String
  483.  
  484. setclick = Worksheets("Overall").Range("L2").Value
  485.  
  486. Range("L2").Value = False
  487.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  488.         Clear
  489.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  490.         Key:=Range("Table1[[#All],[PPR Tier]]"), SortOn:=xlSortOnValues, Order:= _
  491.         xlAscending, DataOption:=xlSortNormal
  492.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  493.         .Header = xlYes
  494.         .MatchCase = False
  495.         .Orientation = xlTopToBottom
  496.         .SortMethod = xlPinYin
  497.         .Apply
  498.     End With
  499.      Worksheets("Overall").Range("L2").Value = setclick
  500.  
  501. With Application
  502.     .ScreenUpdating = True
  503.     .EnableEvents = True
  504.     .Calculation = xlCalculationAutomatic
  505.     .DisplayAlerts = True
  506. End With
  507.  
  508.  
  509. End Sub
  510. Sub Tier5PPR()
  511. '
  512. ' tier5ppr Macro
  513. '
  514. With Application
  515.     .ScreenUpdating = False
  516.     .EnableEvents = False
  517.     .Calculation = xlCalculationManual
  518.     .DisplayAlerts = False
  519. End With
  520.  
  521. Dim setclick As String
  522.  
  523. setclick = Worksheets("Overall").Range("L2").Value
  524.  
  525. Range("L2").Value = False
  526.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  527.         Clear
  528.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  529.         Key:=Range("Table1[[#All],[.5PPR Tier]]"), SortOn:=xlSortOnValues, Order _
  530.         :=xlAscending, DataOption:=xlSortNormal
  531.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  532.         .Header = xlYes
  533.         .MatchCase = False
  534.         .Orientation = xlTopToBottom
  535.         .SortMethod = xlPinYin
  536.         .Apply
  537.     End With
  538.      Worksheets("Overall").Range("L2").Value = setclick
  539.  
  540. With Application
  541.     .ScreenUpdating = True
  542.     .EnableEvents = True
  543.     .Calculation = xlCalculationAutomatic
  544.     .DisplayAlerts = True
  545. End With
  546.  
  547.  
  548. End Sub
  549. Sub SortVBD()
  550. '
  551. ' tier5ppr Macro
  552. '
  553. With Application
  554.     .ScreenUpdating = False
  555.     .EnableEvents = False
  556.     .Calculation = xlCalculationManual
  557.     .DisplayAlerts = False
  558. End With
  559.  
  560. Dim setclick As String
  561.  
  562. setclick = Worksheets("Overall").Range("L2").Value
  563.  
  564. Range("L2").Value = False
  565.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  566.         Clear
  567.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  568.         Key:=Range("Table1[[#All],[VBD]]"), SortOn:=xlSortOnValues, Order _
  569.         :=xlDescending, DataOption:=xlSortNormal
  570.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  571.         .Header = xlYes
  572.         .MatchCase = False
  573.         .Orientation = xlTopToBottom
  574.         .SortMethod = xlPinYin
  575.         .Apply
  576.     End With
  577.      Worksheets("Overall").Range("L2").Value = setclick
  578.  
  579. With Application
  580.     .ScreenUpdating = True
  581.     .EnableEvents = True
  582.     .Calculation = xlCalculationAutomatic
  583.     .DisplayAlerts = True
  584. End With
  585.  
  586.  
  587. End Sub
  588. Sub SortVBDval()
  589. '
  590. ' tier5ppr Macro
  591. '
  592. With Application
  593.     .ScreenUpdating = False
  594.     .EnableEvents = False
  595.     .Calculation = xlCalculationManual
  596.     .DisplayAlerts = False
  597. End With
  598.  
  599. Dim setclick As String
  600.  
  601. setclick = Worksheets("Overall").Range("L2").Value
  602.  
  603. Range("L2").Value = False
  604.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  605.         Clear
  606.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  607.         Key:=Range("Table1[[#All],[Val%]]"), SortOn:=xlSortOnValues, Order _
  608.         :=xlDescending, DataOption:=xlSortNormal
  609.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  610.         .Header = xlYes
  611.         .MatchCase = False
  612.         .Orientation = xlTopToBottom
  613.         .SortMethod = xlPinYin
  614.         .Apply
  615.     End With
  616.      Worksheets("Overall").Range("L2").Value = setclick
  617.  
  618. With Application
  619.     .ScreenUpdating = True
  620.     .EnableEvents = True
  621.     .Calculation = xlCalculationAutomatic
  622.     .DisplayAlerts = True
  623. End With
  624.  
  625.  
  626. End Sub
  627. Sub Salary()
  628. '
  629. ' tier5ppr Macro
  630. '
  631. With Application
  632.     .ScreenUpdating = False
  633.     .EnableEvents = False
  634.     .Calculation = xlCalculationManual
  635.     .DisplayAlerts = False
  636. End With
  637.  
  638. Dim setclick As String
  639.  
  640. setclick = Worksheets("Overall").Range("L2").Value
  641.  
  642. Range("L2").Value = False
  643.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  644.         Clear
  645.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  646.         Key:=Range("Table1[[#All],[Salary]]"), SortOn:=xlSortOnValues, Order _
  647.         :=xlDescending, DataOption:=xlSortNormal
  648.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  649.         .Header = xlYes
  650.         .MatchCase = False
  651.         .Orientation = xlTopToBottom
  652.         .SortMethod = xlPinYin
  653.         .Apply
  654.     End With
  655.      Worksheets("Overall").Range("L2").Value = setclick
  656.  
  657. With Application
  658.     .ScreenUpdating = True
  659.     .EnableEvents = True
  660.     .Calculation = xlCalculationAutomatic
  661.     .DisplayAlerts = True
  662. End With
  663.  
  664.  
  665. End Sub
  666. Sub SrtCustom()
  667. '
  668. ' SrtCustom Macro
  669. '
  670. With Application
  671.     .ScreenUpdating = False
  672.     .EnableEvents = False
  673.     .Calculation = xlCalculationManual
  674.     .DisplayAlerts = False
  675. End With
  676.  
  677. Dim setclick As String
  678.  
  679. setclick = Worksheets("Overall").Range("L2").Value
  680.  
  681. Range("L2").Value = False
  682.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  683.         Clear
  684.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  685.         Key:=Range("Table1[[#All],[Custom Ranks]]"), SortOn:=xlSortOnValues, Order _
  686.         :=xlAscending, DataOption:=xlSortNormal
  687.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  688.         .Header = xlYes
  689.         .MatchCase = False
  690.         .Orientation = xlTopToBottom
  691.         .SortMethod = xlPinYin
  692.         .Apply
  693.     End With
  694.      Worksheets("Overall").Range("L2").Value = setclick
  695.  
  696. With Application
  697.     .ScreenUpdating = True
  698.     .EnableEvents = True
  699.     .Calculation = xlCalculationAutomatic
  700.     .DisplayAlerts = True
  701. End With
  702.  
  703.  
  704. End Sub
  705. Sub sortdyn()
  706. '
  707. ' sortdyn Macro
  708. '
  709. With Application
  710.     .ScreenUpdating = False
  711.     .EnableEvents = False
  712.     .Calculation = xlCalculationManual
  713.     .DisplayAlerts = False
  714. End With
  715.  
  716. Dim setclick As String
  717.  
  718. setclick = Worksheets("Overall").Range("L2").Value
  719.  
  720. Range("L2").Value = False
  721.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  722.         Clear
  723.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  724.         Key:=Range("Table1[[#All],[Dynasty]]"), SortOn:=xlSortOnValues, Order:= _
  725.         xlAscending, DataOption:=xlSortNormal
  726.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  727.         .Header = xlYes
  728.         .MatchCase = False
  729.         .Orientation = xlTopToBottom
  730.         .SortMethod = xlPinYin
  731.         .Apply
  732.     End With
  733.     Worksheets("Overall").Range("L2").Value = setclick
  734.  
  735. With Application
  736.     .ScreenUpdating = True
  737.     .EnableEvents = True
  738.     .Calculation = xlCalculationAutomatic
  739.     .DisplayAlerts = True
  740. End With
  741.  
  742.  
  743. End Sub
  744. Sub sortrook()
  745. '
  746. ' sortrook Macro
  747. '
  748. With Application
  749.     .ScreenUpdating = False
  750.     .EnableEvents = False
  751.     .Calculation = xlCalculationManual
  752.     .DisplayAlerts = False
  753. End With
  754.  
  755. Dim setclick As String
  756.  
  757. setclick = Worksheets("Overall").Range("L2").Value
  758.  
  759. Range("L2").Value = False
  760.     Range("X5:X6").Select
  761.     Range("X6").Activate
  762.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  763.         Clear
  764.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  765.         Key:=Range("Table1[[#All],[Rookie]]"), SortOn:=xlSortOnValues, Order:= _
  766.         xlAscending, DataOption:=xlSortNormal
  767.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  768.         .Header = xlYes
  769.         .MatchCase = False
  770.         .Orientation = xlTopToBottom
  771.         .SortMethod = xlPinYin
  772.         .Apply
  773.     End With
  774.     Worksheets("Overall").Range("L2").Value = setclick
  775.  
  776. With Application
  777.     .ScreenUpdating = True
  778.     .EnableEvents = True
  779.     .Calculation = xlCalculationAutomatic
  780.     .DisplayAlerts = True
  781. End With
  782.  
  783.  
  784. End Sub
  785. Sub YahooADP()
  786. '
  787. ' YahooADP Macro
  788. '
  789. With Application
  790.     .ScreenUpdating = False
  791.     .EnableEvents = False
  792.     .Calculation = xlCalculationManual
  793.     .DisplayAlerts = False
  794. End With
  795.  
  796. Dim setclick As String
  797.  
  798. setclick = Worksheets("Overall").Range("L2").Value
  799.  
  800. Range("L2").Value = False
  801.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  802.         Clear
  803.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  804.         Key:=Range("Table1[[#All],[Yahoo ADP]]"), SortOn:=xlSortOnValues, Order:= _
  805.         xlAscending, DataOption:=xlSortNormal
  806.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  807.         .Header = xlYes
  808.         .MatchCase = False
  809.         .Orientation = xlTopToBottom
  810.         .SortMethod = xlPinYin
  811.         .Apply
  812.     End With
  813.     Worksheets("Overall").Range("L2").Value = setclick
  814.  
  815. With Application
  816.     .ScreenUpdating = True
  817.     .EnableEvents = True
  818.     .Calculation = xlCalculationAutomatic
  819.     .DisplayAlerts = True
  820. End With
  821.  
  822.  
  823. End Sub
  824. Sub YahooRnk()
  825. '
  826. ' YahooRnk Macro
  827. '
  828. With Application
  829.     .ScreenUpdating = False
  830.     .EnableEvents = False
  831.     .Calculation = xlCalculationManual
  832.     .DisplayAlerts = False
  833. End With
  834.  
  835. Dim setclick As String
  836.  
  837. setclick = Worksheets("Overall").Range("L2").Value
  838.  
  839. Range("L2").Value = False
  840.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  841.         Clear
  842.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  843.         Key:=Range("Table1[[#All],[Yahoo]]"), SortOn:=xlSortOnValues, Order:= _
  844.         xlAscending, DataOption:=xlSortNormal
  845.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  846.         .Header = xlYes
  847.         .MatchCase = False
  848.         .Orientation = xlTopToBottom
  849.         .SortMethod = xlPinYin
  850.         .Apply
  851.     End With
  852.     Worksheets("Overall").Range("L2").Value = setclick
  853.  
  854. With Application
  855.     .ScreenUpdating = True
  856.     .EnableEvents = True
  857.     .Calculation = xlCalculationAutomatic
  858.     .DisplayAlerts = True
  859. End With
  860.  
  861.  
  862. End Sub
  863. Sub NFLrnk()
  864. '
  865. ' NFLrnk Macro
  866. '
  867. With Application
  868.     .ScreenUpdating = False
  869.     .EnableEvents = False
  870.     .Calculation = xlCalculationManual
  871.     .DisplayAlerts = False
  872. End With
  873.  
  874. Dim setclick As String
  875.  
  876. setclick = Worksheets("Overall").Range("L2").Value
  877.  
  878. Range("L2").Value = False
  879.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  880.         Clear
  881.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  882.         Key:=Range("Table1[[#All],[NFL]]"), SortOn:=xlSortOnValues, Order:= _
  883.         xlAscending, DataOption:=xlSortNormal
  884.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  885.         .Header = xlYes
  886.         .MatchCase = False
  887.         .Orientation = xlTopToBottom
  888.         .SortMethod = xlPinYin
  889.         .Apply
  890.     End With
  891.    
  892.     Worksheets("Overall").Range("L2").Value = setclick
  893.  
  894. With Application
  895.     .ScreenUpdating = True
  896.     .EnableEvents = True
  897.     .Calculation = xlCalculationAutomatic
  898.     .DisplayAlerts = True
  899. End With
  900.  
  901.  
  902. End Sub
  903. Sub PPRadp()
  904. '
  905. ' pprADP Macro
  906. '
  907. With Application
  908.     .ScreenUpdating = False
  909.     .EnableEvents = False
  910.     .Calculation = xlCalculationManual
  911.     .DisplayAlerts = False
  912. End With
  913.  
  914. Dim setclick As String
  915.  
  916. setclick = Worksheets("Overall").Range("L2").Value
  917.  
  918. Range("L2").Value = False
  919.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  920.         Clear
  921.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  922.         Key:=Range("Table1[[#All],[PPR ADP]]"), SortOn:=xlSortOnValues, Order:= _
  923.         xlAscending, DataOption:=xlSortNormal
  924.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  925.         .Header = xlYes
  926.         .MatchCase = False
  927.         .Orientation = xlTopToBottom
  928.         .SortMethod = xlPinYin
  929.         .Apply
  930.     End With
  931.     Worksheets("Overall").Range("L2").Value = setclick
  932.  
  933. With Application
  934.     .ScreenUpdating = True
  935.     .EnableEvents = True
  936.     .Calculation = xlCalculationAutomatic
  937.     .DisplayAlerts = True
  938. End With
  939.  
  940.  
  941. End Sub
  942. Sub PPRrnk()
  943. '
  944. ' pprRNK Macro
  945. '
  946.  
  947. With Application
  948.     .ScreenUpdating = False
  949.     .EnableEvents = False
  950.     .Calculation = xlCalculationManual
  951.     .DisplayAlerts = False
  952. End With
  953.  
  954. Dim setclick As String
  955.  
  956. setclick = Worksheets("Overall").Range("L2").Value
  957.  
  958. Range("L2").Value = False
  959.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  960.         Clear
  961.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  962.         Key:=Range("Table1[[#All],[PPR]]"), SortOn:=xlSortOnValues, Order:= _
  963.         xlAscending, DataOption:=xlSortNormal
  964.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  965.         .Header = xlYes
  966.         .MatchCase = False
  967.         .Orientation = xlTopToBottom
  968.         .SortMethod = xlPinYin
  969.         .Apply
  970.     End With
  971.     Worksheets("Overall").Range("L2").Value = setclick
  972.  
  973. With Application
  974.     .ScreenUpdating = True
  975.     .EnableEvents = True
  976.     .Calculation = xlCalculationAutomatic
  977.     .DisplayAlerts = True
  978. End With
  979.  
  980.  
  981. End Sub
  982.  
  983.  
  984.  
  985. Sub VBDsrt()
  986. '
  987. ' VBDsrt Macro
  988. '
  989.  
  990. With Application
  991.     .ScreenUpdating = False
  992.     .EnableEvents = False
  993.     .Calculation = xlCalculationManual
  994.     .DisplayAlerts = False
  995. End With
  996.  
  997. Dim setclick As String
  998.  
  999. setclick = Worksheets("Overall").Range("L2").Value
  1000.  
  1001. Range("L2").Value = False
  1002.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  1003.         Clear
  1004.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  1005.         Key:=Range("Table1[[#All],[VBD]]"), SortOn:=xlSortOnValues, Order:= _
  1006.         xlDescending, DataOption:=xlSortNormal
  1007.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  1008.         .Header = xlYes
  1009.         .MatchCase = False
  1010.         .Orientation = xlTopToBottom
  1011.         .SortMethod = xlPinYin
  1012.         .Apply
  1013.     End With
  1014.       Worksheets("Overall").Range("L2").Value = setclick
  1015.  
  1016. With Application
  1017.     .ScreenUpdating = True
  1018.     .EnableEvents = True
  1019.     .Calculation = xlCalculationAutomatic
  1020.     .DisplayAlerts = True
  1021. End With
  1022.  
  1023.  
  1024. End Sub
  1025.  
  1026. Sub SkewSrt()
  1027. '
  1028. ' SkewSrt Macro
  1029. '
  1030. Dim setclick As String
  1031.  
  1032. setclick = Worksheets("Overall").Range("L2").Value
  1033.  
  1034. Range("L2").Value = False
  1035.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  1036.         Clear
  1037.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  1038.         Key:=Range("Table1[[#All],[Skew]]"), SortOn:=xlSortOnValues, Order:= _
  1039.         xlDescending, DataOption:=xlSortNormal
  1040.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  1041.         .Header = xlYes
  1042.         .MatchCase = False
  1043.         .Orientation = xlTopToBottom
  1044.         .SortMethod = xlPinYin
  1045.         .Apply
  1046.     End With
  1047.           Worksheets("Overall").Range("L2").Value = setclick
  1048.  
  1049. With Application
  1050.     .ScreenUpdating = True
  1051.     .EnableEvents = True
  1052.     .Calculation = xlCalculationAutomatic
  1053.     .DisplayAlerts = True
  1054. End With
  1055.  
  1056.  
  1057. End Sub
  1058. Sub BeerVal()
  1059. '
  1060. ' BeerVal Macro
  1061. '
  1062. With Application
  1063.     .ScreenUpdating = False
  1064.     .EnableEvents = False
  1065.     .Calculation = xlCalculationManual
  1066.     .DisplayAlerts = False
  1067. End With
  1068.  
  1069. Dim setclick As String
  1070.  
  1071. setclick = Worksheets("Overall").Range("L2").Value
  1072.  
  1073. Range("L2").Value = False
  1074.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  1075.         Clear
  1076.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  1077.         Key:=Range("Table1[[#All],[BS Val]]"), SortOn:=xlSortOnValues, Order:= _
  1078.         xlDescending, DataOption:=xlSortNormal
  1079.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  1080.         .Header = xlYes
  1081.         .MatchCase = False
  1082.         .Orientation = xlTopToBottom
  1083.         .SortMethod = xlPinYin
  1084.         .Apply
  1085.     End With
  1086.     Worksheets("Overall").Range("L2").Value = setclick
  1087.  
  1088. With Application
  1089.     .ScreenUpdating = True
  1090.     .EnableEvents = True
  1091.     .Calculation = xlCalculationAutomatic
  1092.     .DisplayAlerts = True
  1093. End With
  1094.  
  1095. End Sub
  1096. Sub BeerPS()
  1097. '
  1098. ' BeerPS Macro
  1099. '
  1100.  
  1101. With Application
  1102.     .ScreenUpdating = False
  1103.     .EnableEvents = False
  1104.     .Calculation = xlCalculationManual
  1105.     .DisplayAlerts = False
  1106. End With
  1107.  
  1108. Dim setclick As String
  1109.  
  1110. setclick = Worksheets("Overall").Range("L2").Value
  1111.  
  1112. Range("L2").Value = False
  1113.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  1114.         Clear
  1115.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  1116.         Key:=Range("Table1[[#All],[PosScarcity]]"), SortOn:=xlSortOnValues, Order _
  1117.         :=xlDescending, DataOption:=xlSortNormal
  1118.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  1119.         .Header = xlYes
  1120.         .MatchCase = False
  1121.         .Orientation = xlTopToBottom
  1122.         .SortMethod = xlPinYin
  1123.         .Apply
  1124.     End With
  1125.     Worksheets("Overall").Range("L2").Value = setclick
  1126.    
  1127.  
  1128. With Application
  1129.     .ScreenUpdating = True
  1130.     .EnableEvents = True
  1131.     .Calculation = xlCalculationAutomatic
  1132.     .DisplayAlerts = True
  1133. End With
  1134.  
  1135. End Sub
  1136.  
  1137. Sub BeerTier()
  1138. '
  1139. ' BeerPS Macro
  1140. '
  1141. With Application
  1142.     .ScreenUpdating = False
  1143.     .EnableEvents = False
  1144.     .Calculation = xlCalculationManual
  1145.     .DisplayAlerts = False
  1146. End With
  1147.  
  1148. Dim setclick As String
  1149.  
  1150. setclick = Worksheets("Overall").Range("L2").Value
  1151.  
  1152. Range("L2").Value = False
  1153.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  1154.         Clear
  1155.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  1156.         Key:=Range("Table1[[#All],[BeerTier]]"), SortOn:=xlSortOnValues, Order _
  1157.         :=xlAscending, DataOption:=xlSortNormal
  1158.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  1159.         .Header = xlYes
  1160.         .MatchCase = False
  1161.         .Orientation = xlTopToBottom
  1162.         .SortMethod = xlPinYin
  1163.         .Apply
  1164.     End With
  1165.     Worksheets("Overall").Range("L2").Value = setclick
  1166.    
  1167. With Application
  1168.     .ScreenUpdating = True
  1169.     .EnableEvents = True
  1170.     .Calculation = xlCalculationAutomatic
  1171.     .DisplayAlerts = True
  1172. End With
  1173.  
  1174. End Sub
  1175. Sub BeerAdjVal()
  1176. '
  1177. ' BeerAdjVal Macro
  1178. '
  1179.  
  1180. With Application
  1181.     .ScreenUpdating = False
  1182.     .EnableEvents = False
  1183.     .Calculation = xlCalculationManual
  1184.     .DisplayAlerts = False
  1185. End With
  1186.  
  1187. Dim setclick As String
  1188.  
  1189. setclick = Worksheets("Overall").Range("L2").Value
  1190.  
  1191. Range("L2").Value = False
  1192.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  1193.         Clear
  1194.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  1195.         Key:=Range("Table1[[#All],[AdjBSval]]"), SortOn:=xlSortOnValues, Order:= _
  1196.         xlDescending, DataOption:=xlSortNormal
  1197.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  1198.         .Header = xlYes
  1199.         .MatchCase = False
  1200.         .Orientation = xlTopToBottom
  1201.         .SortMethod = xlPinYin
  1202.         .Apply
  1203.     End With
  1204.     Worksheets("Overall").Range("L2").Value = setclick
  1205.  
  1206. With Application
  1207.     .ScreenUpdating = True
  1208.     .EnableEvents = True
  1209.     .Calculation = xlCalculationAutomatic
  1210.     .DisplayAlerts = True
  1211. End With
  1212.  
  1213.  
  1214. End Sub
  1215.  
  1216. Sub SortFFC()
  1217. '
  1218. ' SortFFC Macro
  1219. '
  1220.  
  1221. With Application
  1222.     .ScreenUpdating = False
  1223.     .EnableEvents = False
  1224.     .Calculation = xlCalculationManual
  1225.     .DisplayAlerts = False
  1226. End With
  1227.  
  1228. Dim setclick As String
  1229.  
  1230. setclick = Worksheets("Overall").Range("L2").Value
  1231.  
  1232. Range("L2").Value = False
  1233.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  1234.         Clear
  1235.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  1236.         Key:=Range("Table1[[#All],[FFC ADP]]"), SortOn:=xlSortOnValues, Order:= _
  1237.         xlAscending, DataOption:=xlSortNormal
  1238.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  1239.         .Header = xlYes
  1240.         .MatchCase = False
  1241.         .Orientation = xlTopToBottom
  1242.         .SortMethod = xlPinYin
  1243.         .Apply
  1244.     End With
  1245.     Worksheets("Overall").Range("L2").Value = setclick
  1246.  
  1247. With Application
  1248.     .ScreenUpdating = True
  1249.     .EnableEvents = True
  1250.     .Calculation = xlCalculationAutomatic
  1251.     .DisplayAlerts = True
  1252. End With
  1253.  
  1254.  
  1255. End Sub
  1256. Sub SortDynastyADP()
  1257. '
  1258. ' SortFFC Macro
  1259. '
  1260.  
  1261. With Application
  1262.     .ScreenUpdating = False
  1263.     .EnableEvents = False
  1264.     .Calculation = xlCalculationManual
  1265.     .DisplayAlerts = False
  1266. End With
  1267.  
  1268. Dim setclick As String
  1269.  
  1270. setclick = Worksheets("Overall").Range("L2").Value
  1271.  
  1272. Range("L2").Value = False
  1273.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  1274.         Clear
  1275.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  1276.         Key:=Range("Table1[[#All],[Dynasty ADP]]"), SortOn:=xlSortOnValues, Order:= _
  1277.         xlAscending, DataOption:=xlSortNormal
  1278.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  1279.         .Header = xlYes
  1280.         .MatchCase = False
  1281.         .Orientation = xlTopToBottom
  1282.         .SortMethod = xlPinYin
  1283.         .Apply
  1284.     End With
  1285.     Worksheets("Overall").Range("L2").Value = setclick
  1286.  
  1287. With Application
  1288.     .ScreenUpdating = True
  1289.     .EnableEvents = True
  1290.     .Calculation = xlCalculationAutomatic
  1291.     .DisplayAlerts = True
  1292. End With
  1293.  
  1294.  
  1295. End Sub
  1296.  
  1297. Sub srtPCgold()
  1298. '
  1299. ' srtPCgold Macro
  1300. '
  1301.  
  1302. With Application
  1303.     .ScreenUpdating = False
  1304.     .EnableEvents = False
  1305.     .Calculation = xlCalculationManual
  1306.     .DisplayAlerts = False
  1307. End With
  1308.  
  1309. Dim setclick As String
  1310.  
  1311. setclick = Worksheets("Overall").Range("L2").Value
  1312.  
  1313. Range("L2").Value = False
  1314.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields. _
  1315.         Clear
  1316.     ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort.SortFields.Add _
  1317.         Key:=Range("Table1[[#All],[Gold Rank]]"), SortOn:=xlSortOnValues, Order:= _
  1318.         xlDescending, DataOption:=xlSortNormal
  1319.     With ActiveWorkbook.Worksheets("Overall").ListObjects("Table1").Sort
  1320.         .Header = xlYes
  1321.         .MatchCase = False
  1322.         .Orientation = xlTopToBottom
  1323.         .SortMethod = xlPinYin
  1324.         .Apply
  1325.     End With
  1326.     Worksheets("Overall").Range("L2").Value = setclick
  1327.  
  1328. With Application
  1329.     .ScreenUpdating = True
  1330.     .EnableEvents = True
  1331.     .Calculation = xlCalculationAutomatic
  1332.     .DisplayAlerts = True
  1333. End With
  1334.  
  1335. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top