Try something like
Code:Function CheckValues(varComp1 As Variant, varComp2 As Variant, strCheckString As String) As Boolean CheckValues = Application.Evaluate(varComp1 & strCheckString & varComp2) End Function Sub Test() MsgBox CheckValues(strTempAry(ciclo, 5), V_AV, "<=") End Sub




Reply With Quote
Bookmarks