You could try a macro. Something like
Sub HighlightRow()
mynum = Application.InputBox("Enter barcode number")
On Error GoTo 1:
Columns("A:A").Select
Selection.Find(What:=mynum, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
Selection.EntireRow.Select
1:
MsgBox "Number not found."
End Sub
You'd need to specify the relevant column instead of A:A.
Rgds/Happy Easter,
Andy
Sub HighlightRow()
mynum = Application.InputBox("Enter barcode number")
On Error GoTo 1:
Columns("A:A").Select
Selection.Find(What:=mynum, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
Selection.EntireRow.Select
1:
MsgBox "Number not found."
End Sub
You'd need to specify the relevant column instead of A:A.
Rgds/Happy Easter,
Andy