Function pauses(JNT, TT)
pause = ""
TT = TT * 24
Set c = Sheets("Data").Rows(1).Find("JNT " & JNT & "h", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
For n = 3 To Sheets("Data").Cells(65536, c.Column).End(xlUp).Row
Z = Sheets("Data").Cells(n, c.Column)
Z = Split(Replace(Z, "mais ", ""))
deb = CDbl(Replace(Z(0), ">", ""))
fin = CDbl(Replace(Z(1), "<=", "")) + 0.000001
If TT > debut And TT <= fin Then
pauses = Sheets("Data").Cells(n, c.Column + 1)
Exit Function
End If
Next
End If
End Function