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

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

Arrrrrrgggg...

Forgot to close my parens.... and I didn't see your comma instead of a
colon in the second range....

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

HTH,
Bernie
MS Excel MVP

"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
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