Hi
try the following macro (and assign it to a button):

dim rng as range
dim c as range
set rng = range ("A:A")
for each c in rng
if left(c.value,1)="a" then
c.select
exit for
end if
next


--
Regards
Frank Kabel
Frankfurt, Germany

I made (Read: Someone in here told me how to make) a function that
will search for a given word in a sheet.

Now I need a function to search aphabetically through a colomn, so if
i Click on "A" it will go down to the first name starting with A...

Anyone?


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