Copy recent date

[Panoos64]

Hi to all in forum, Im kindly require to provide me support sso that a VBA code, should run through col. "A" and where find the newest date should copying this date in cell "A500".

Please see below an extract.

09/06/2019
15/06/2019
21/06/2019

Based on above extract the code should copying the date "21/06/2019"
Thank you all in advance

 

[AlanY]

try

Sub Recent_date()
    Range("A500").Value = WorksheetFunction.Max(Range("A1:A499"))
End Sub

 

[Panoos64]

Perfect Alan, thank you so much for your time spent for my project. Hv a great day!

 

[AlanY]

you're welcome