try something like this, dont cut n paste directly to your real workboo
as im new at this and this may not act as you wish!!

Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVa
Target As Range)
Dim myrange As Range
Dim t1 As String
Dim I1 As Integer
Dim res As Variant


If sh.Name = "THE SHEET NAME YOUR LIST IS ON GOES HERE" Then Exi
Sub
Set myrange = sh.Range("THE RANGE TO WORK ON")
If Not Intersect(myrange, Target) Is Nothing Then
With Worksheets("SHEET THE LIST IS ON")
t1=inputbox ("looking/entering matches","Match additio
box",""
res = Application.Match(t1, .Range(.Range("A2"), _
.Range("A2").End(xlDown)), 0)
End With
If Not IsError(res) Then
ActiveCell = t1

Exit Sub
Worksheets("SHEET NAME YOUR LIST IS ON").Visible = False
End If

I1 = MsgBox("Please try again " & vbCrLf & _
"" Entry not recognised ")
If ActiveCell < "SHEET NAME " Then
End If
End If
End Sub

Probably isnt exactly what you want, but it may be useful to you!

Simon

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