How Convert number to letter more that 1 number ?

[tif007]

I want convert number column to letter about 10 number by use vba as below.

Dim n As Long, n2 As Long, n3 As Long
Dim c As Byte, c2 As Byte, c3 As Byte
Dim s As String, s2 As String, s3 As String

n = col_header_AccNoFromIT_DataCampaign
Do
c = ((n - 1) Mod 26)
s = Chr(c + 65) & s
n = (n - c) \ 26
Loop While n > 0

But I write 10 round for convert number column 10 number to letter 10 number.

How to write by short?

Please guide me about itt.

[Sintek]

You mean convert Column Number to letter 1 to A 2 to B etc

Sub J3v16()
Dim i As Long
For i = 1 To 10
    Debug.Print Split(Cells(1, i).Address, "$")(1)
Next i
End Sub

Or store numbers and convert?

Sub J3v16()
Dim Numbers, i As Long
Numbers = [{1,3,5,9,10,20,25,26}]
For i = 1 To UBound(Numbers)
    Debug.Print Split(Cells(1, Numbers(i)).Address, "$")(1)
Next i
End Sub

[tif007]

I mean store numbers.

How to get output (letter) ?

[Sintek]

2nd option post 2 does that...store numbers in array...get col letter output...

[tif007]

I'm newbie in VBA.

I don't know how to get output in array 2

Sub J3v16()
Dim Numbers, i As Long
Numbers = [{1,3,5,9,10,20,25,26}]
For i = 1 To UBound(Numbers)
Debug.Print Split(Cells(1, Numbers(i)).Address, "$")(1)
Next i
MsgBox (Split(Cells(1, Numbers(i)).Address, "$")(2))
End Sub

Please guide me more.

[Sintek]

Sub J3v16()
Dim Numbers
Numbers = [{1,3,5,9,10,20,25,26}]
Debug.Print Split(Cells(1, Numbers(2)).Address, "$")(1)
End Sub

[JEC.]

To load in a new array

Sub jec()
Dim Numbers(7), it
For Each it In Array(1, 3, 5, 9, 10, 20, 25, 26)
  Numbers(x) = Chr(64 + it): x = x + 1
Next
End Sub

If you have over 26 columns, use the method Sintek provided

Sub jec()
Dim Numbers(7), it
For Each it In Array(1, 3, 5, 9, 10, 20, 25, 27)
  Numbers(x) = Split(Cells(1, it).Address, "$")(1): x = x + 1
Next
End Sub

[Glenn Kennedy]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code] [/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

I realise you have already had several replies. HOWEVER, no FURTHER help to be offered until this requiremtn has been complied with.