Undersøg i VBA om datoen er valid

Hej

Jeg har lavet en ark, hvor man smider en dato ind, og den beregner derefter noget ud fra de tilhørende værdier.

Jeg vil gerne have VBA til at vælge den næste dato hver gang jeg kører makroen.
Indtil videre har jeg fået den til at tillæge 1, hver gang den kører, men så opstår der nogle datoer, som ikke findes i tabellen (weekender osv.)
Jeg vil derfor gerne have, at den springer datoer over, som ikke er i tabellen.
Hvordan kan dette løses?

Indtil videre har jeg lavet dette.

Sub Plus1()

Dim i As Variant
i = Range("c7") + 1
Range("c7") = i
Do Until lookup(Range("c7"), Range("Dato"))
Loop

Denne virker dog ikke.

Jeg vil meget gerne udbyde, hvis det er nødvendigt.

På forhånd tak!