Following macro is different from what you want ("change in B1") but more
flexible. It assumes that you've put the cursor into the column of the data
table that you want to search (so it works on any column). It pops up an
inputbox where you would input "para". Upon Enter the screen scrolls to the
first cells which starts with "para" (the normal Excel Find command would
find para anywhere in the cell - that's not what you want) .The search is
not case sensitive, so it will find Paracetamol, paracetamol or PARAcetamol.

I recommend that you assign a keyboard shortcut to this macro: In the Excel
menu go to Tools-Macro-Macros-[select macro]-Options.

Cheers,
Joerg Mochikun

Sub QuickSearch()
Dim SearchString As String
SearchString = InputBox("Search for...")
For Each cell In
Range(ActiveCell.CurrentRegion.Columns(ActiveCell. Column).Address)
If LCase(SearchString) = Left(LCase(CStr(cell.Text)),
Len(SearchString)) Then
cell.Select
Exit Sub
End If
Next cell
End Sub



"sunilpatel" wrote in message
...
hi from a newbie

in column A i have a very long list of medical products in alphabetical
order.
I keep having to scroll up and down all day to find items. I would like a
sheet macro to detect a cell change e.g in B1 i enter "para" and column A
scrolls down until "Paracetamol" is visible on the screen in column A.
(i.e column A automatically scroll to line 400 where cell A400 is
Paracetamol).

Thanks in advance

Sunil