Excel 2007 :: VBA To Move Mails In Outlook

I got the following script from another site. What it is intended to do is that it has three columns in a sheet.

Column A = Folder Name
Column B = Sender Name or Mail Subject
Column C = Values for Column B

Based on what values are in Column C (sender name or email subject), it will then look at the mails in outlook within the 'inbox' folder and look for the matching criteria and if it finds a match, move it to the folder named in column A (if folder does not exist, create folder)

Running the script, I get runtime error '438' object does not know property or method - on the line highlighted in red. I am using office 2007 and looking at the code, it is using late binding so no reference library is needed?

Code:
Option Explicit
Const olFolderInbox = 6
Sub moveOutlookMails()
Dim wkb As Workbook
Dim wks As Worksheet
Dim rng As Range

[Code] .......