How to check if a Value is a date before running the find function

[vbaNumpty]

I am trying to figure out how I can check if a value in a combobox is a date before running a find in VBA.

The code looks like this:

        If Not IsError(DateValue(ComboBox1)) Then
            Set FindMe = DataSH.Range("A4:L1048576").Find(What:=DateValue(ComboBox1), LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
        Else
            Set FindMe = DataSH.Range("A4:L1048576").Find(What:=ComboBox1, LookIn:=xlValues, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
        End If

I was hoping that if the value wasn't a date it would declare and error and move to the else, but it seems to just crash the code and not perform as I had hoped. Anyone that could provide a solution?

 

[Marc L]

​

Try VBA function IsDate …​

 

[vbaNumpty]

​

Try VBA function IsDate …​

Sweet, didn't know that was a thing!