Guru do Excel e Power BI

Boa tarde, Pessoal!

Alguém pode me ajudar com o código abaixo?

Está apresentando erro nesta parte do código (Set SheetsNameList = CreateObject("System.Collections.ArrayList")

Observação: No Microsoft Excel 2016 funciona perfeitamente, mas na versão 2019 está apresentando erro.

Desde já grato pela atenção.

Marcos

Private Sub Worksheet_Activate()
Dim i As Long
Dim Names As Variant
Dim NumSheets As Long
Dim SheetsNameList As Object
Range("A2:A50").ClearContents

Set SheetsNameList = CreateObject("System.Collections.ArrayList")
For i = 2 To Sheets.Count
SheetsNameList.Add ActiveWorkbook.Sheets(i).Name
Next i
SheetsNameList.Sort

Names = WorksheetFunction.Transpose(SheetsNameList.ToArray)
Range("A2:A50").Resize(SheetsNameList.Count).Value2 = Names
End Sub

Experimente:

Osvaldo,
em qual parte eu troco o código sugerido por você?

Marcos

Olá, Marcos.
O código que eu sugeri substitui o seu por completo. Ficaria conforme abaixo.

Osvaldo,
Funcionou perfeitamente.
Só mais uma pergunta. Sou iniciante em VBA, qual função eu uso para que quando o código executar já classificasse a lista de planilhas em ordem alfanumérico?
Muito obrigado pela ajuda!!!
Fique com Deus!!!

Experimente. Dependendo da formação alfanumérica dos nomes das planilhas a ordenação padrão do Excel poderá não resultar conforme você deseja. Se for esse o caso então disponibilize alguns nomes das planilhas que representem todos os nomes e coloque a ordem desejada.