VBA ListBox-AddItem

[george hart]

Can anyone advise how I change the code below so that the ."AddItem" refers to a range within Sheet1?

For example .AddItem Worksheets("Sheet1").Range("O2:O20")

With ListBox1
        .AddItem "January"
        .AddItem "February"
        .AddItem "March"

Many thanks in advance...

 

[VoG]

Perhaps

With listbox1
    For i = 2 To 20
        .AddItem Worksheets("Sheet1").Range("O" & i).Value
    Next i
End With

 

[george hart]

Many thanks - worked a treat...

Thanks again

 

[gotavio]

Can anyone advise how I change the code below so that the ."AddItem" refers to a range within Sheet1?

For example .AddItem Worksheets("Sheet1").Range("O2:O20")

Hello,

Try this:

Listbox.rowsource = Worksheets("Sheet1").Range("O2:O20")