list sorted by ws.codename but shows ws.name in list

[KDS14589]

I would list ALL MY CODE ATTEMPTS but not enough space.

I’m trying to get a list of all worksheets in a workbook, but it would be in ascending order by worksheet.codename but only show a list of the worksheet.name in worksheet GE03.RANGE(“AH5:AH” & LDR_EH)
The examples I've seen actually alphabetically rearrange the worksheets, but I just want a list in GE03.RANGE(“AH5:AH” & LDR_EH).

worksheet.codename’s are 4 charters; two letters followed by two numbers ie GE03

The code I’m using for just a random list is…..

Dim Ws As Worksheet

Dim x As Integer

Dim wbk As Workbook

Dim wbkName As String



x = 5

wbkName = ThisWorkbook.Name

Set wbk = Application.Workbooks(wbkName)

For Each Ws In wbk.Worksheets

GE03.Cells(x, 34) = Ws.Name

Next Ws

 

[Fluff]

Make this small change

GE03.Range("AH5").Resize(UBound(Ary) + 1).Value = Application.Transpose(Ary)

 

[jolivanes]

Add the +1 as below

Sheet4.Range("AH5").Resize(UBound(Ary) + 1).Value = Application.Transpose(Ary)

I did not think I needed to use the F5 but I was wrong.

 

[KDS14589]

Make this small change

GE03.Range("AH5").Resize(UBound(Ary) + 1).Value = Application.Transpose(Ary)

So far so-good
thanks for the follow up
THANKS for everything

 

[Fluff]

You're welcome.