Dim Cell As Range
For Each Cell In Selection
Cell.Offset(0, 10).Value = Application.VLookup(Cell, _
Range("Price"), Application.HLookup _
(Range("CountryToSearch"), Range("Price"), 2, False), False)
Next Cell

Assume your formula arguments and name definitions are appropriate.

--
Regards,
Tom Ogilvy


"Caroline" wrote in message
...
Hi,
I am not too hot on translating Excel function on VBA.
I am trying to use Vlookup and Hlookup to return a value
for each Cell in a selection. How can I declare the
functions for them to work in the following way?

This is part of the code, where Price and CountryToSearch
are defined as Range:

Dim Cell As Range
For Each Cell In Selection
Cell.Offset(0, 10).Value = VLookup(Cell, Price, HLookup
(CountryToSearch, Price, 2, False), False)
Next Cell

Can somebody help? Thanks