Sub celia()
For i = 1 To 2
If TimeValue("6:0:0") < Cells(i, 1) And Cells(i, 1) < TimeValue("7:0:0") Then
MsgBox "ok"
End If
Next
mycount = Application.WorksheetFunction.CountIfs(Columns("a:a"), ">" & TimeValue("6:0:0"), Columns("a:a"), "<" & TimeValue("7:0:0"))
If mycount >= 1 Then MsgBox "pass"
End Sub