Counting Duplicate Files And Comparing To List

I am trying to make a Macro that will search through a folder on my PC and look for file names with a string such as shown below:

The issue i am facing is that many of the files have duplicates.

I need it to check to see if the number of duplicates in Column E for each file name have the same amount of duplicate files in the actual folder... and if they don't I need the rows(s) highlighted Yellow.

Example: Say I run this macro.. and there are only 2 files in the folder that start with "BH1003".. as there is 3 instances in column E.. the 3 rows that have "BH1003" in them should all highlight..

I have added my code so far below also, but it only highlights each row Yellow if it finds an instance of the string in column E.. I don't know how to get it to count and compare....

Code:

Private Sub CommandButton3_Click()
'Search Folder for files - Highlight Yellow if Exists - Highlight Red if NOT Exists.
Dim r As Long, lastRow As Long
With ThisWorkbook.ActiveSheet
'get last row

[Code]...