Taisir,
I got your message about it being case sensitive... we can fix that if the data is not always identical (meaning it will no longer be case sensitive). We just need to change a few lines:
myUniversity = "King Saud Univ" 'this will control which names we DO use
becomes:
myUniversity = "KING SAUD UNIV" 'this will control which names we DO use
Then change:
If InStr(ws.Range("B" & i).Value, myUniversity) < 1 Then GoTo nomatch
to:
If InStr(UCase(ws.Range("B" & i).Value), myUniversity) < 1 Then GoTo nomatch
and also:
If InStr(myNames1(j), myUniversity) > 0 Then
to:
If InStr(UCase(myNames1(j)), myUniversity) > 0 Then
Bookmarks