If, as I understand what you said, you have A in a cell by itself, B in a
cell by itself, etc, then right click sheet tabview codeinsert thischange
columns(1) to reference your column. Now when you type in B or b in cell a1
you will be taken to the row where the B rows start.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
Columns(1).Find(Target, lookat:=xlWhole).Select
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Bill" wrote in message
...
Hi,

I have a work sheet that lists produts in alphabetical order.

The top of my work sheet displays the alphabet and each letter has a cell.

Under this row the letter A is and it has 7 blank rows under it - to
display
products beginning with the letter A and then the letter B is on the next
row
and this has 7 blank rows underneath it and it will store products
beginning
with B etc.

Can a function be set up to do the following. When I select a letter from
the alphabet on the top row say P, the page automatically goes to my list
of
products beginning with P.

If possible I would prefer not to use macros.

Any help would be much appreciated.

Thanking you in advance,

Bill