Sub findinvarcol()
Dim mc As Long
On Error GoTo nofind
mc = InputBox("enter column")
kw = InputBox("Keyword?")
x = Columns(mc).Find(kw).Address
MsgBox x
Exit Sub
nofind: MsgBox "No find"
End Sub

--
Don Guillett
SalesAid Software

"Cessna Driver" wrote in message
ups.com...
I am a "semi" newby and need help with a project.

I have a 26,000 item Excel file consisting of < 10 columns of info
(varies). I need to be able to look in a named column (variable) for a
keyword and, if found, copy that entire row to another workbook.

What I need the macro to do is ask:

"Search Which Column?"
"For What Keyword?"
"Run Now?"

and, when it finds that keyword in a column, copy the entire row to
another worksheet or workbook without destroying the info in the master
file.

I do not absolutly need to append info to the new worksheet but it
would be nice to be able to do so and I would use that function if I
had it.

This is WAY beyond my capabilities although I do know how to insert
macros.

I would think that this would be a helpful macro for many other people.
It probably has been written but I can't find it. Any help given will
be greatly appreciated.

Thanks - Jim K