Hi to all,
  Anyone can suggest me a way to easilly find out the column letter by using the number...

EX : Column number 5 is actually equal to "E".

So far, I went the long way around :

Dim ExlLetter(5) as string   ExlLetter(1) = "A"   ExlLetter(2) = "B"   ExlLetter(3) = "C"   ExlLetter(4) = "D"   ExlLetter(5) = "E"   ColumnLetter = ExlLetter(ColumnNumber)

Maybe there already a function that does so. Since my VBA code actually to be able to goo all the way to the last column (IV) and that a huge array to build manually!

thank You!



____________________________
A Stick give a wise man something to think about... and a fool, something to put in is mouth.

Hi,
why do you need the letter? Excel supports number ranges too.
Kieron


____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

That's interesting...

  Well, I wanted number to letter since I didn't know that excel supported numbered range.

  Does it work the same as a lettered range?

EX : Range("A1:b2")   = Range("11:22")  ?


since i am using it for a range (With a graph).

Thank You!

____________________________
A Stick give a wise man something to think about... and a fool, something to put in is mouth.

Hi,
I've written a little function to calculate the letters from a given number, in case you really need it:

Public Function GetColumnLetters(ByVal intNumber As Integer) As String     Dim strRet As String          Dim d As Integer               strRet = ""     If intNumber <= 26 Then         strRet = Chr(intNumber + Asc("A") - 1)     Else                  Do             d = intNumber \ 26                          strRet = strRet & Chr(d + Asc("A") - 1)                                            intNumber = intNumber - (d * 26)                      Loop While intNumber > 26         strRet = strRet & Chr(intNumber + Asc("A") - 1)     End If     GetColumnLetters = strRet End Function

Hope this helps,
Kieron

[Edited by stickleprojects on 07-10-2005 at 03:57 PM GMT]

____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

It's work extremelly wells!!!
Thank You!


____________________________
A Stick give a wise man something to think about... and a fool, something to put in is mouth.