Counting Frequency of cells

Hey guys,

I am making a dashboard report for a company as part of my school co-op, and i need help with something. On a spreadsheet in excell, i have imported client information from the companies database. it is a giant list of client activities (emails, phone calls, workshops, etc.) beside each activity, the clients name is written. they have interacted with some clients more than others, and they want to see how many clients they have interacted with more than 3 times. So long story short, i need a piece of code that takes a list of client names (located in sheet4, collumn F:F) and see how many times a name appears more than 3 times. Then print that number in sheet6, A1.

dont know if thats even possible, but thanks for trying

I think you're already done with manual counting in a week

but in the future (this isn't the fastest way probably) this can be helpful, but you have to sort the names A-Z and no blank cells in F column until the end:

Sub ImSoLazyAtCoOpWorking()
Dim LastRow As Range
Dim ClientName As String
Dim ActualClientCount As Integer
Dim BigShot As Integer

Set LastRw = Range("F:F").Find(What:="", LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
    

For i = 1 To LastRw.Row - 1

ClientName= Sheets("sheet4").Cells(i, 6).Value
ActualClientCount = Application.WorksheetFunction.CountIf(Range("F:F"), ClientName)

If ActualClientCount > 3 Then
BigShot = BigShot + 1
End If
i = i + ActualClientCount - 1
Next
Sheets("Sheet6").Range("A1") = BigShot
End Sub