Reply to thread

Message: [QUOTE="Earl Kiosterud, post: 2751980"] StargateFan, You might be able to use Autofilter, though this can result in a long list to select from. It only shows 1000 entries. Are you willing to paste some macro code in? I think I have something you can use. Make a textbox from the control toolbox. Put it at the top of the worksheet. While you're still in design mode, double-click the textbox (should put you in the sheet module in the VBE) and paste in this code (from here). Watch for line breaks from the post. Private Sub TextBox1_Change() Dim FoundCell As Range Static FoundRow As Long ' remove yellow from prior marked row: If Not FoundRow = 0 Then Cells(FoundRow, 1).EntireRow.Interior.ColorIndex = xlNone Set FoundCell = Range("A:A").Find(TextBox1.Value) If Not FoundCell Is Nothing Then ' did we find one? FoundRow = FoundCell.Row ' save the row for unyellowing FoundCell.Select ' force scroll to this row FoundCell.EntireRow.Interior.ColorIndex = 36 ' light yellow End If TextBox1.Activate ' go back to text box. End Sub Freeze panes to keep the text box onscreen at the top when it scrolls. Switch off design mode to use it. This isn't the one that I've successfully used, but let's see if it's what you want. It marks the row it's found in yellow as you type into the text box. When you've reached the one you want, press Esc, and the row will be selected. We can have it hide the other rows. [/QUOTE]