This is my code:

```
Sub FindMatchingValue()
    Dim i As Integer, TimeValueToFind As Date
    TimeValueToFind = "00:00:00"
    Sheets("Vessels").Range("F07").ClearContents
    For i = 1 To 25   '
        If Sheets("Vessels").Cells(i, 1).Value = TimeValueToFind Then
            MsgBox ("Found value on row " & i)

            Sheets("Vessels").Range("F07").Value = Cells(i, 1).Offset(1, 1).Resize(1).Value
            Exit Sub
        End If
    Next i
    MsgBox ("Value not found in the range!")
End Sub

```

This code checks Column A for the time inputted in the format xx:xx:xx Both where the input is, and where the times are written are set as "Time" format

There is a table with times in from 00:00:00 to 23:00:00 in Column A.
For some reason, this code will only work when trying to find 00:00:00, no other time value is found at all. I can't figure out the reason why.  

I thought it might be because TimeValueToFind is "as Date". However there seems to be no "As Time" though? Unsure why this is not working. And if that's the case why it doesn't work, why is 00:00:00 found but nothing else? It's a simple error I bet but some help would be greatly appreciated.

For additional information: 

Tidal Time is Column A.

```
Tidal Time  Tidal Height
00:00:00    
01:00:00    
02:00:00    
03:00:00    
04:00:00    4.40
05:00:00    4.00
06:00:00    3.60
07:00:00    3.20
08:00:00    2.80
09:00:00    2.40
10:00:00    2.00
11:00:00    2.37
12:00:00    2.74
13:00:00    3.11
14:00:00    3.49
15:00:00    3.86
16:00:00    4.23
17:00:00    4.60
18:00:00    4.13
19:00:00    3.67
20:00:00    3.20
21:00:00    2.73
22:00:00    2.27
23:00:00    1.80

```

The Entirity of Column A is Time. Now It's important to understand that for awhile now I've been punching myself in the face as for i to 25 should have been 2 to 25, the String Tidal Height is incorrect format and this was the reason for the missmatch error.