airstrike

Option Explicit

Public Function GetIf(ByRef Rng As Range, ByVal If1 As Variant, ByVal If2 As Variant, Optional ByVal Indx As Variant) As Variant
    Dim i As Long, cell_count As Long
    cell_count = Rng.Cells.Count
    Dim Results As New Collection
    
    For i = 1 To cell_count
        If GetObject(If1, i) = GetObject(If2, i) Then Results.Add Rng.Cells(i)
    Next

airstrike

airstrike

'from http://peltiertech.com/Excel/Charts/LabelLastPoint.html
Sub LastPointLabel()
  Dim mySrs As Series
  Dim iPts As Long
  Dim bLabeled As Boolean
  If ActiveChart Is Nothing Then
    MsgBox "Select a chart and try again.", vbExclamation, "No Chart Selected"
  Else
    For Each mySrs In ActiveChart.SeriesCollection
      bLabeled = False

airstrike

Sub RemoveUnusedNumberFormats()
  Dim strOldFormat As String
  Dim strNewFormat As String
  Dim aCell As Range
  Dim sht As Worksheet
  Dim strFormats() As String
  Dim fFormatsUsed() As Boolean
  Dim i As Integer

  If ActiveWorkbook.Worksheets.Count = 0 Then

airstrike

' Latest version available at:
'    http://stackoverflow.com/questions/2449755/too-many-different-cell-formats/8933399#8933399
' Description:
'    Borrowed largely from http://www.jkp-ads.com/Articles/styles06.asp

Option Explicit

' Description:
'    This is the "driver" for the entire module.
Public Sub DropUnusedStyles()

airstrike

~+x::
if WinActive("ahk_class AcrobatSDIWindow") {
    SetKeyDelay, 15
    Send, ^+{F10}
    Send, {h}
    Send, {ESC}
    return
} else {
    return
}

airstrike

Sub LoopCases()
    On Error Resume Next
    [Case] = [Case] Mod [CaseCount] + 1
End Sub

airstrike

Sub JumpStart()
    Dim N As Name
    Set N = ActiveWorkbook.Names("CIRC")
    
    On Error GoTo ErrHandler:
    If N.RefersToRange.Value = 1 Then N.RefersToRange.Value = 0
    Application.Calculate
    N.RefersToRange.Value = 1
    
    Exit Sub

airstrike

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager]
"ThemeActive"="1"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ThemeManager]
"ThemeActive"=-

; Do not Animate windows when minimizing and maximizing
[HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics]

airstrike

// fnx
// more available at: http://csgocrosshairs.com/teams

cl_crosshairalpha "200"
cl_crosshaircolor "5"
cl_crosshaircolor_b "138"
cl_crosshaircolor_r "45"
cl_crosshaircolor_g "255"
cl_crosshairdot "0"
cl_crosshairgap "-1"