Sub vlookup1() Dim student_id As Long Dim marks As Long student_id = 11004 Set myrange = Range(“B4:D8”) marks = Application.WorksheetFunction.VLookup(student_id, myrange, 3, False) End Sub