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