VBA macro having issue when looping through and renaming files in folder?

Question

The following code goes through all PDF files in a folder, gets the first word of the file name and checks excel spreadsheet if the word it exists in a range.If it does not exis