Capturing Application.Match error using loops

I want to locate the position of two dates inside a list of sequential dates.

The list is arranged earliest date to latest date.

The first date is the start_date, if the start_date is not contained in the list, it should increase by one until a match occurs.

The second date is the end_date, if the end_date is not contained in the list, it should decrease by one until a match occurs.

I currently use Application.Match to look for each date, and unsuccessfully try to fit a loop to capture any error, and increase (decrease) the start (end) date.

Why can not use For loop instaed of Do loops?

One way to remove the error if there is no match.

i = 0
Do Until IsError(Application.Match(Cells(3, 3) + i, Columns("A:A"), 0)) = False
    start_date = Application.Match(Cells(3, 3) + i, Columns("A:A"), 0)
    If IsNumeric(start_date) Then
    
    
        i = i + 1
    End If
Loop

Hiya, I think something like this should work for you.

Sub MATCH_CATCH()

    Dim ws As Worksheet
    Dim sDateStart As String
    Dim sDateEnd As String
    Dim nDistance As Double
    Dim nLR As Double
    Dim nRow As Double
    Dim bFound As Boolean
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    sDateStart = ws.Range("C3")
    sDateEnd = ws.Range("C4")

    nLR = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    bFound = False
    
    For X = 2 To nLR
    
        If ws.Cells(X, 1) = sDateStart Then
        
            bFound = True
        
        End If
        
    Next X
    
    nDistance = DateDiff("d", sDateStart, ws.Cells(2, 1))
    nRow = 2
    
    If bFound = False Then
    
        For X = 3 To nLR
        
            If DateDiff("d", sDateStart, ws.Cells(X, 1)) < nDistance And DateDiff("d", sDateStart, ws.Cells(X, 1)) >= 0 Then
            
                nDistance = DateDiff("d", sDateStart, ws.Cells(X, 1))
                
                nRow = X
            
            End If
        
        Next X
    
        ws.Range("C3") = ws.Cells(nRow, 1)
    
    End If
    
    bFound = False
    
    For X = 2 To nLR
    
        If ws.Cells(X, 1) = sDateEnd Then
        
            bFound = True
        
        End If
        
    Next X
    
    nDistance = DateDiff("d", ws.Cells(X, 1), sDateEnd)
    nRow = 2
    
    If bFound = False Then
    
        For X = 3 To nLR
        
            If DateDiff("d", ws.Cells(X, 1), sDateEnd) < nDistance And DateDiff("d", ws.Cells(X, 1), sDateEnd) >= 0 Then
            
                nDistance = DateDiff("d", ws.Cells(X, 1), sDateEnd)
                
                nRow = X
            
            End If
        
        Next X
    
        ws.Range("C4") = ws.Cells(nRow, 1)
    
    End If
    
End Sub

AB33 I'm not exactly sure how to implement your suggestion.

Poizhan your code is too advanced for my level.

Apologies for the complexity, I would be happy to chat and explain the logic / methodology