VBA - For Next Loop i Array

Hej,

Jeg har en udfordring i forhold til en array. Koden ser således ud:

    Dim CourseList() As String
 
        For Each fil In F.Files
            Set w = Workbooks.Open(F & "\" & fil.Name)
                Worksheets("Wish List").activate
                    lrow = cells(Rows.count, 1).End(xlUp).Row
   
        ReDim CourseList(lrow)
           
        For i = 0 To lrow
            CourseList(i) = cells(i + 1, 2)
        Next

        For i = 1 To lrow
            If CourseList(i) = "SAND" Then
            CourseList(i) = CourseList(i) + 1
            End If
        Next
    w.Close fil
        Next fil

Idéen er, at jeg looper gennem en masse filer, og for hver gang værdien SAND fremkommer på kursuslisten, så går det pågældende kursus op med +1.

Spørgsmålet er så; Hvordan får jeg lavet en kode som printer alle kursusnavne i én kolonne og i kolonnen ved siden af skal jeg have numeriske værdier for hvor mange gange værdien SAND er fremkommet for det pågældende kursus?

Mvh Steffen