1. InterestRD_CC)(1, 1) If TableOrTier(v -1) = 0 Then IMC(a) = IMCharge(PortfolioCC;Contracttypecc Portfoliocc;SR(a) = ScanRisk
2. JOURNAL CC
3. InterestRD_CC)(2) For i = 1 To Months RMD(a, i) = InterSpreadCrParameters;Unrnetdeltafm Portfoliocc;CCRisk(a) = SR(a) + IMC(a) NOV(a) = NetOV
4. SPANmargin").Activate Cells(5 + a, 1) = SR(a) Cells(5 + a, 2) = IMC(a) Cells(5 + a, 4) = SOMC(a) Cells(5 + a, 6) = CCRorSOMC(a) Cells(5 + a, 5) = NOV(a) Worksheets("SPANvectors").Activate If v > Portfolio Then GoTo;CCRorSOMC(a) = Application.Max(CCRisk(a)