Microsoft Office Forums - View Single Post - [Solved] Have an alphbetical list need to count how many names start with A, B, C etc.

jolivanes · 08-31-2014, 11:58 PM

Or this. Same goes for the Columns as in the previous post.
For some reason, the previous post misses one word with a C when testing and I have not been able to find out why it does that.

Code:

Sub Another_Way()
    Dim j As Long, Counter As Long, c As Range
    Application.ScreenUpdating = False
    For j = 1 To 26
        Counter = 0
        Cells(j, 3).Value = Chr(64 + j)
        For Each c In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
            If Left(c, 1) = Cells(j, 3).Value Then Counter = Counter + 1
        Next c
        Cells(j, 5) = Counter
    Next j
    Application.ScreenUpdating = True
End Sub