I'm trying to use vlookup to lookup a the contents of a textbox in a
database and insert the value into my spreadsheet. I've tried several
things, but I keep getting an error that says "invalid argument or
procedure. Can anyone tell me what is wrong with my code?

Thanks,
Greg


Private Sub CommandButton1_Click()

Dim company As Range
Dim attn As Range
Dim fax_no As Range
Dim email As Range
Dim database As Range


Range("company") = Application.WorksheetFunction.VLookup(TextBox1,
database, 2, False)

UserForm1.Hide
End Sub