Public Sub DisplayAllRecommendations()  '<--- give this and next as patch
     For i = 0 To 11
         DisplayRecommendation(i)
     Next
     Globals.Dashboard.ManualExecutionLBox.ClearSelected()
 End Sub

 Public Sub DisplayRecommendation(i As Integer)
     Globals.Dashboard.Range("J6").Offset(i, 0).Value = Recommendations(i).familyDelta
     Globals.Dashboard.Range("K6").Offset(i, 0).Value = Recommendations(i).type
     Globals.Dashboard.Range("L6").Offset(i, 0).Value = Recommendations(i).symbol
     Globals.Dashboard.Range("M6").Offset(i, 0).Value = Recommendations(i).qty
     Globals.Dashboard.Range("N6").Offset(i, 0).Value = Recommendations(i).totValue
 End Sub

' APPLYING THIS PATCH MIGHT CAUSE A COUPLE OF EASILY FIXABLE ERRORS (e.g., too many arguments: just delete the extra argument)