[Tasos]

Ναι μου ξέφυγε...

Βρες τη γραμμή: Cells(lastRow + i, X).Value = ConvertToChar(oCell.ChildNodes(0).nameProp)

και αντικατέστησε την με:Cells(lastRow + i - 1, X).Value = ConvertToChar(oCell.ChildNodes(0).nameProp)

Έκανα τη διόρθωση στο συνημμένο του προηγούμενου μου μηνύματος.

Όσο για το σφάλμα "Subscript out of range" δεν μπόρεσα να το αναπαράγω για να σου πω κάτι.

Το κελί Α1 στο φύλλο πρέπει να περιέχει κάτι διαφορετικά μάλλον θα έχεις πρόβλημα.

Αν δεν είναι αυτό το πρόβλημα τότε αφαίρεσε προσωρινά τη γραμμή On Error GoTo ExitHere, τρέξε τον κώδικα και πες μας σε ποιο σημείο παρουσιάζεται το πρόβλημα.



Τάσος