Function traziZadnjuKolonu(ImeSita As String) Dim Zadnji As Long Dim ws As Worksheet Set ws = Sheets(ImeSita) With ws Zadnji = .Cells(1, .Columns.Count).End(xlToLeft).Column End With traziZadnjuKolonu = Zadnji End Function