Остановить макрос, если дата не найдена

Question

Мне нужно найти дату в столбце, а если не найти, остановите макрос. Дата взята из ячейки

Dim rng1 As Range 
Dim strSearch As String 
strSearch = Worksheets("Calculations").Cells(4, 3).Value 
MyInput.Activate 
Set rng1 = Range("H:H").Find(strSearch, , xlValues, xlWhole) 
If Not rng1 Is Nothing Then 
'Macro follows 
Else 
    MsgBox "Date not found" 
End If 
End Sub 

Что делает этот макрос, всегда возвращает поле сообщения, даже если дата существует.

Благодаря

Answer 1

вы пытаетесь искать дату в качестве строкового типа. Я просто изменил strSearch на dteSearch с типом даты.

Dim rng1 As Range 
Dim dteSearch As Date 
dteSearch = Worksheets("Calculations").Cells(4, 3).Value 
MyInput.Activate 
Set rng1 = Range("H:H").Find(dteSearch, , xlValues, xlWhole) 
If Not rng1 Is Nothing Then 
'Macro follows 
Else 
    MsgBox "Date not found" 
End If 
End Sub 

Удачи вам!