

tabulky - makro
Zdravím,
potřeboval bych poradit, mám v tabulce v jednom sloupci URL obrázků a potřeboval bych do druhého sloupce ten obrázek dle URL v daném řádku.
Nikdy jsem s makrem nepracoval, našel jsme na netu tohle makro, jste schopni mi prosím poradit kde je problém? protože mi to háže chybu RANGE (což je asi nějaký rozsah...)
Sub InsImg()
Dim URL As Range
For Each URL In Range("A1", Cells(Rows.Count, "A").End(xlUp))
With URL.Parent.Pictures.Insert(URL.Value)
.Left = URL.Offset(0, 1).Left
.Top = URL.Offset(0, 1).Top
URL.EntireRow.RowHeight = .Height
End With
Next
End Sub
Děkuji za odpověď.