Pq verificar se esta ?

Se nao estiver faz o que?

E se tiver faz o que?

Amigo,
Se Não estiver em ordem, vou rodar rotina de Classificação de A a Z.
Eu preciso apenas de macro pra checar se está em ordem alfabética.
Obrigado,
Pedro

Se vai classificar de qualquer jeito pra que verificar?

Deixar o codigo mais sujo desnecessariamente.

Se a intenção é manter classificado nao tem pq verificar roda a rotina dentro do codigo e pronto.

Não complique o que é simples.

A rotina de classificação é demasiadamente lenta.
Eu gostaria de rodá-la somente se necessário, por isso, preciso da macro.
Ademais, com a função poderei comparar o tempo pra Checar se está em Ordem com o tempo gasto na Classificação,
e tomar a decisão de usar ou não.
Grato,
Pedro

Tente usar essa rotina para classificar

Sub Classificar()

Dim W As Worksheet

Application.ScreenUpdating = False
    
Set W = Sheets("Plan1")

With W.Sort
        .SetRange Range("F1:F" & Rows.Count)
        .Header = xlYes
        .Apply
    End With

Application.ScreenUpdating = True

End Sub

Essa rotina classifica apenas a coluna F a partir de F1 se começar depois de F1 modifique o inicio do intervalo