Moc děkuju, funguje to jak má. 
Jen jsem musel ještě před
List7.Cells(Cells(1000, 1).End(xlUp).Row, 3).Select
Selection.Cells.Value = "zboží"
List3.Activate List7.Activate
poradna.net
Neregistrovaný Přihlásit Registrovat