Jsi si jistý tímto řádkem, hlavně tím xlUP?
For Each URL In Range("A1", Cells(Rows.Count, "A").End(xlUp))
poradna.net
Neregistrovaný Přihlásit Registrovat