<div dir="ltr">>Thanks, but I said clearly "for each" is no option<br><div>
    >Dag</div><div><br></div><div>Why, was it ordered to you by the doctor? Here he works well:<br><br>--------------------------------------<br>    Dim aCell As New Variant[20]<br>  Dim sType As String<br><br>  aCell[5] = "Pippo"<br>  aCell[10] = 12<br>  aCell[19] = Date(Now)<br><br>  For Each v As Variant In aCell<br>  Â  If Not v Then<br>  Â  Â  Continue<br>  Â  Else<br>  Â  Â  Print "-----------------------------"<br>  Â  Â  Select TypeOf(v)<br>  Â  Â  Â  Case gb.String<br>  Â  Â  Â  Â  sType = " is a string"<br>  Â  Â  Â  Case gb.Integer<br>  Â  Â  Â  Â  sType = " is a integer"<br>  Â  Â  Â  Case gb.Date<br>  Â  Â  Â  Â  sType = " is a date"<br>  Â  Â  End Select<br>  Â  Â  Print v; sType<br>  Â  Â  Print "-----------------------------"<br>  Â  Endif<br>  Next<br>--------------------------------------<br><br>or explain yourself better.<br><br>Regards<br>Gianluigi</div></div>