Function traziZadnjuKolonu(ImeSita As String) Dim Zadnji As Long Dim ws As Worksheet Dim zadnjaCelija As Range Set ws = Sheets(ImeSita) Set zadnjaCelija = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, MatchCase:=False) Zadnji = zadnjaCelija.Column traziZadnjuKolonu = Zadnji End Function