<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
    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