Seamus,

Try a loop structure like the following:

Dim FirstLetter As String
Dim Ndx As Integer
For Ndx = 65 To 90 ' upper case letters
FirstLetter = Chr(Ndx)
' do you query using FirstLetter
Next Ndx


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"SOS " wrote in message
...
Hi All,

I'd be grateful for some help please. I'm looking for a VBA
function
that will return each letter of the alphabet in turn.

I have a query that brings me back all the people in my list
whose
surname begins with the letter "A". I know I could run this
query 26
times (to return surnames for each letter) but I'd like to be
able to
run it with the result of the function passed as a paramater so
that I
could end up with a table of all my names. The reason I have
to split
it up 26 times is that the query is so big that it falls over
if I ask
for all names at once.

Hope that makes sense

TIA

Seamus


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