Oldřich Strachota

Pokud při prohledávání velkého seznamu (např. v MS Excelu) potřebujete „skočit“ na aktuální datum, lze to snadno pomocí VBA makra
Sub skoc_na_dnesni_datum()
    ActiveRange = A1
    Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
    Application.CutCopyMode = False
End Sub