Hi, why it says variable not defined for 'Cell' here
For Each Cell In Worksheets("sheet3").Range("A1:A112")
Dim myColCheck As Integer
Dim myTimeToCheck As String
Dim chour, cminute As Integer
myTimeToCheck = Format(TimeSerial(nHour, nMinute, 0), "hh:mm:ss")
For Each Cell In Worksheets("sheet3").Range("A1:A112")
If Format(Cell.Value, "hh:mm:ss") = myTimeToCheck Then
myColCheck = Cell.Row - 1
Exit For
End If
Next
MsgBox (myColCheck)