Option Explicit
Sub macro_1()
Dim count, max_date
count = 2 ' change to first row with data
Do Until Range("D" & count) = ""
If DateSerial(Left(Range("D" & count), 4), Right(Range("D" & count), 2), 1) > max_date Then
max_date = DateSerial(Left(Range("D" & count), 4), Right(Range("D" & count), 2), 1)
End If
count = count + 1
Loop
count = 2
Do Until Range("D" & count) = ""
If Not DateSerial(Left(Range("D" & count), 4), Right(Range("D" & count), 2), 1) = max_date Then
Rows(count).Hidden = True
else
Rows(count).hidden = False
end if
count = count + 1
Loop
End Sub
Bookmarks