Multiple ComboBoxes - Is it possible to shorten code?

[ocnmel]

I have multiple ComboBoxes (some of the code is below) and I was wondering if there is a way to shorten it up?

Cross-posted here: http://www.mrexcel.com/forum/excel-q...rten-code.html

    With Sheet1.ComboBox2111
    .AddItem "00:00"
    For i = 1 To 1439
    .AddItem Format(i / 1440, "hh:mm")
    Next i
    End With

    With Sheet1.ComboBox2112
    .AddItem "00:00"
    For i = 1 To 1439
    .AddItem Format(i / 1440, "hh:mm")
    Next i
    End With

    With Sheet1.ComboBox2113
    .AddItem "00:00"
    For i = 1 To 1439
    .AddItem Format(i / 1440, "hh:mm")
    Next i
    End With

    With Sheet1.ComboBox2114
    .AddItem "00:00"
    For i = 1 To 1439
    .AddItem Format(i / 1440, "hh:mm")
    Next i
    End With

  With Sheet1.ComboBox2115
    .AddItem "00:00"
    For i = 1 To 1439
    .AddItem Format(i / 1440, "hh:mm")
    Next i
    End With

[romperstomper]

Please use code tags.

Yes, you can do it in a loop:

Dim n as Long
for n = 2111 to 2115
With Sheet1.OLEObjects("ComboBox" & n).Object
.AddItem "00:00"
For i = 1 To 1439
.AddItem Format(i / 1440, "hh:mm")
Next i
End With
next n

[jindon]

Something like this

    Dim i As Long, x
    x = [index(text((row(1:1440)-1)/1440,"hh:mm"),,)]
    For i = 2111 To 2115
        Sheet1.OLEObjects("Combobox" & i).Object.List = x
    Next

[ocnmel]

Thank you both for your time and assistance. It is greatly appreciated!