Rory, you are thinking about this too hard, you somethning simple like this.
Sub dave() a = Array("d", "a", "v", "e") For Each x In a For i = 0 To 25 If Chr(Asc("a") + i) = x Then s = s & Chr(Asc("a") + i): Exit For End If Next i Next x MsgBox s End Sub
Last edited by JapanDave; 09-02-2013 at 07:36 AM.
Be fore warned, I regularly post drunk. So don't take offence (too much) to what I say.
I am the real 'Napster'
The Grid. A digital frontier. I tried to picture clusters of information as they moved through the computer. What did they look like? Ships? motorcycles? Were the circuits like freeways? I kept dreaming of a world I thought I'd never see. And then, one day...
If you receive help please give thanks. Click the * in the bottom left hand corner.
snb's VBA Help Files
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks