<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>