Here is a simple example

Sub test()
mynum = Application.InputBox("Enter a number", Type:=1)
Sheets("Sheet2").Range("B1").Value = _
Application.WorksheetFunction.VLookup(mynum, Range("data"), 2)
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Les Stout" wrote in message ...
Good Day,

I am using Vlook up's to look up a number or a name which is typed into
a cell, this then brings the values to the right of the given number in
the table, into cells on another work sheet. There are 11 columns of
data.
I would like to do this which VBA, is it possible ?


Les Stout

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!