Sub GetValue()
Range("A1").value = _
application.VLookUP(Range("A2").value, _
Range("M1:P5"),2,0)
End Sub

--
Regards,
Tom Ogilvy


"hey" wrote in message
...
Last week you gave me the following which works but still isnt a cut and
paste. Is it possible to do?

Range("A1").value =
application.VLookUP(Range("A2").value,Range("M1:P5 "),2,0)

Thanks