VBA檢查全程有效日期並非空白？

Question

I have a workbook like so: 

Dates 
01/02/2017 
01/03/2017 
BLANK 
01/02/2017 

我想運行一個宏，但只有當我的範圍內的所有單元格都是有效日期而不是空的。

我使用的是下面：

Dim cell As Range 

    'With my workbook, lets check the data 
    With wb.Worksheets(1) 
    Lastrow = .Cells(.Rows.count, "G").End(xlUp).Row 

    'Data Check: Are all dates valid? 
    For Each cell In Range("E9:E" & Lastrow) 
    If IsDate(cell.Value) And Not IsEmpty(cell.Value) Then 
    Continue 
    Else 
    Exit Sub 

    End If 
    Next 
    End With 

但是，這是行不通的。無論如何，宏仍然運行！如果這個列中的我的單元格是重要的數據驗證列表。

請有人能告訴我我要去哪裏嗎？

Answer 1

反轉邏輯位：

Dim cell As Range 

    'With my workbook, lets check the data 
    With wb.Worksheets(1) 
     Lastrow = .Cells(.Rows.Count, "G").End(xlUp).Row 

     'Data Check: Are all dates valid? 
     For Each cell In Range("E9:E" & Lastrow) 
      If Not IsDate(cell.Value) Or Trim(cell.Value) = "" Then 
       Exit Sub 
      End If 
     Next 
     ' the rest of your code. 
     ' it will not get here if there are any blanks in or non dates in the range. 

    End With