Ho trovato nelle varie macro del mio pc:
Set WS = Worksheets("dividi")
ActiveSheet.Unprotect "123456"
With WS
Set LastCell = .Cells(.Rows.Count, "A").End(xlUp)
LastCellRowNumber = LastCell.Row
Rows(LastCellRowNumber + 1 & ":" & Rows.Count).Delete
End With
che funziona, solo che mi elimina tutte le righe.
E' possibile modificare che elimine solo i valori presenti lasciando le
righe?
patrik
------------------
excel 2003 / 20007