For Each Cell In .Columns(f).Cells - dan danas mi je nejasno ovo Each, uvijek prepisujem sa interneta
...
Next Cell