Encontre a data mais recente em uma coluna

Eu preciso de ajuda com o código abaixo. O que estou tentando fazer é ativar a célula com a data mais recente na coluna "A". Quando tento ativar a célula, ela continua ativando a célula "OIY3" e não há valores nessas colunas.

sub test

Max_date = Application.WorksheetFunction.Max(Columns("A"))

MsgBox CDate(Max_date)

Cells(Max_date).Activate

End sub 

Aqui está um método típico:

Sub test()
    Dim r As Range
    Max_date = Application.WorksheetFunction.Max(Columns("A"))
    MsgBox CDate(Max_date)
    Set r = Range("A:A").Find(What:=CDate(Max_date), After:=Range("A1"))
    r.Activate
End Sub

Você definiu Max_date para o valor, não para o endereço da célula. Portanto, o Excel está tentando interpretar uma data como um endereço de célula.

Este link do SO deve fornecer a resposta que você deseja.