worksheetfunction

[GMet]

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

 

[Bernie Deitrick]

Glen,

Change

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

to

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

HTH,
Bernie
MS Excel MVP

 

[Bernie Deitrick]

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