Public Sub Display_Temp()
Dim Lookup_ref as Range
Dim Lookup_In as String

Range("a1").select

Lookup_in = Inputbox("Record to Look up?", _\
"Project Log Lookup", 63,1)

set Lookup_ref = Worksheets("Project Log Form") _
.Range("B8:B10000").Find(Lookup_in)

If not Lookup_ref is nothing then
Lookup_ref.Select
Else
msgbox Lookup_In & " was not found"
End if

End Sub

--
Regards,
Tom Ogilvy

"andibevan " wrote in message
...
Hi All,

I am a bit new to this VBA business and am struggling to get a piece of
code right.

I wish to search all of column B for a user inputted variable
"Lookup_in" and then for that cell to be selected

I have been trying:-

Public Sub Display_Temp()

Dim Lookup_ref

Range("a1").select

Lookup_in = Inputbox("Record to Look up?", "Project Log Lookup", 63,
1)

Lookup_ref = Worksheets("Project Log
Form").Range("B8:B10000").Find(Lookup_in)

Range(Lookup_ref).select

End Sub

The program gets stuck on the last line, which I find confusing as it
successfully finds the Lookup_in variable, just will not recognise it
as a cell address in order to locate it.

Any help would be very gratefully received.

Thanks alot

Andi


---
Message posted from http://www.ExcelForum.com/