the remove method in Collection and Select Case

[Paul_Hossler]

1. Select Case works by using a 'value' (Newport.Der below) and matching it with a Case selector (Case Is "cash") and then executing the statements that are part of the selected Case

2. I don't know where or why you wanted the .Remove

3. If you want Stock + Bond + Option + CDS (no Cash) then you need to add those four

4. the Select Case is case-sensitive, so if the data is "Cash" then "cash" will not match

Select Case  newPort.Der

    Case Is "cash" 
        For i = 1 To 10 
            Range("scenario1").Cells(i, 1) = newPort.GetTotal(Range("Scenario1").Cells(i, 1)) 
        Next i 



...etc.





End Select