Risolto!!!!


Basta:
codice:
Sheets("Nome_Sheet").Range([A1], [A1].End(xlDown)).Count