Macro para classificação de dados sem especificar nome de planilha

[ccavalcantejr]

Pessoal, preciso de uma macro para classificar os dados de uma determinada coluna, porém, quando faço isso pelo método de gravação, nas linhas de código aparecem o nome da planilha.
Essa macro deverá funcionar para outros arquivos, onde nem sempre o nome da planilha será o mesmo.
Podem me ajudar, por favor, com uma macro onde "Plan1" como no exemplo abaixo seja um nome gernérico?


Columns("B:B").Select
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Plan1").Sort
.SetRange Range("A1:D64")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply