Input sizing numberofassets <- number of full cells on “row 4” - 2 numberofperiods <- number of full cells on “column D” - 1 'Processing Select cell B4 Value of cell (numberofperiods rows down from, same column as) B4 <- "Average Return" Value of cell (numberofperiods+1 rows down from, same column as) B4 <- "Recommendation" Select cell A3 For a = 1 To numberofassets 'Processing each asset in turn temp = 0 'temp will contain the average return for asset a For p = 1 To numberofperiods 'Processing each period in turn temp <- temp + Value of cell (p row down from, same column as) A3 * Value of cell (p row down from, 2+a right column from) A3 Next p 'writing the results for asset a Value of cell (numberofperiods +1 row down from, 2+a right column from) A3 <- temp If temp > 0.05 Then Value of cell (numberofperiods +2 row down from, 2+a right column from) A3 <- "Keep" Else Value of cell (numberofperiods +2 row down from, 2+a right column from) A3 "Remove" End If Next a
