Win/Loss Sparkline In Excel VBA

Finally, here is a win-loss indicator represented by bars that distinguish positive and negative values:

Sub CreateWinLossSparkline()
    ThisWorkbook.Worksheets("Sheet8").Activate
    Range("A11").SparklineGroups.Add _
        xlSparkColumnStacked100, "A1:A10"
End Sub

Explanation:
The element xlSparkColumnStacked100 from the xlSparkType enumeration creates a sparkline that visually differentiates between positive and negative values using stacked columns.