Este fórum está sendo desativado

[MarceloAdriano]

Olá Estimados do Grupo Guru do Excel
Gravei uma macro na qual me retorne a classificação dos nomes (ColunaB) por ordem alfabética...
Porém quero acrescentar nesse código um range dinâmico que seja ajustável automaticamente ao ser acrescentado um novo nome a lista...
Se alguém, poder me ajudar desde então agradeço

No mais Feliz Natal a todos participantes do Guru do Excel.
Obs: Planilha em anexo...
Grato,
Marcelo Adriano

[gfranco]

Boa tarde.
Veja se ajuda.

Código: Selecionar todos

Sub ClassificarOrdemAlfabetica()

Dim ulinha As Long
Dim w As Worksheet
Set w = Plan1
Dim myrange As Range

ulinha = w.Cells(w.Cells.Rows.Count, 1).end(3).row

Set myrange = w.Range("a9:ag" & ulinha)

myrange.Sort key1:=w.Range("a9"), order1:=xlAscending, header:=xlYes

End Sub

[MarceloAdriano]

Olá gFranco
Era exatamente isso que gostaria de acrescentar...

Obrigado...

Grato,
Marcelo Adriano