Glen,

Change

Application.WorkSheetFunction.Vlookup(K4,'WBS Code'!$A$2,$$d$40,4,0)

to

Application.WorkSheetFunction.Vlookup(Range("K4".V alue,Worksheets("WBS
Code").Range("$A$2,$$d$40"),4,0)

HTH,
Bernie
MS Excel MVP

"GMet" wrote in message
...
I get an error on this code:

LOEcriteria = Application.WorkSheetFunction.Vlookup(K4,'WBS
Code'!$A$2,$$d$40,4,0)

The error message highlights the single quote at 'WBS Code'

What do I need to do?

GMet