Compare the dates: if <> then run my code: Please help: Thank you.

[pedie]

Hi,

What I am looking to achieve is that if any of the date in range D:D of activeworkbook = date in k2 of book2 then exit sub or run my code.

With thanks
Pedie

 

[AlphaFrog]

    Dim MyDate As Range
    
    Set MyDate = Workbooks("Book2.xls").ActiveSheet.Range("K2")
    
    If IsDate(MyDate) Then
        If Not ActiveWorkbook.ActiveSheet.Range("D:D").Find(MyDate.Value, LookAt:=xlWhole) Is Nothing Then
            ' Date Match found in column D
            ' Run code here
        Else
            ' No date match
            Exit Sub
        End If
    Else
        MsgBox "Cell K2 doesn't have a date in it."
    End If

 

[pedie]

Alpha...!
Thanks alot that it works perfect...! I think I want something simpleir then that but this works good.


Thanks alot!