How to use named ranges in VBA?

This will give you the number of apples for John:

Intersect(Range("john"), Range("apple")).Value

and this will give apples and pears

Intersect(Range("john"), Range("apple")).Value + Intersect(Range("john"), Range("pear")).Value