jschipper05
12/8/2017 - 9:36 PM

Send - JES

Send - JES

Sub Small_All()

'Application.ScreenUpdating = False
'Application.Visible = False

    Worksheets("Snapshot").Range("C16").Value = ""
    Sheet1.Range("A4").Value = "U15154108-23 Client"
    Sheet1.Range("A10:Z1000").Clear
    PORT_RefDataExample
    
    Application.Calculation = xlCalculationAutomatic
    
    Application.OnTime Now + TimeValue("00:00:03"), "Small_Test"
    
    Application.Calculation = xlCalculationAutomatic

End Sub

Sub Small_Test()

    Call Small_Securities 'Small Data Fix
            
            Application.Calculation = xlCalculationAutomatic
       
    Small_RefDataExample 'Port2
    
        Application.Calculation = xlCalculationAutomatic
        
    REF_RefDataExample
    
    Call Impact1
    
    Application.OnTime Now + TimeValue("00:00:03"), "sumif"

End Sub