comboBox1.Clear 'ovo da izbrise item iz comboboxa ako ih je bilo Dim LastRow As Long 'zadnji red Dim rng As Range 'range Dim ws As Worksheet 'ovo mi se svida nemoram pisati svaki put worksheet Set ws = Worksheets("ImeList") ws.Select 'vidis napisem samo ws umjesto worksheet With ws LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 'nade zadnji upotrebljeni red u stupcu A Set rng = Range("A3:A" & LastRow) ' rangira u stupcu A od A3 do zadnjeg reda Me.combobox1.list = rng.Cells.Value ' stavi u combobox na formi (Me) sve vrijednosti ranga End With Set ws = Worksheets("List1") ws.Select 'vrati me na prvi list