Increment ActiveX ComboBox from firstvalue to lastvalue


Active Member
Jun 30, 2018
I have two activex comboboxes, combobox1 and combobox2, that I want to increment with VBA from firstvalue to lastvalue.

How can I change the value of the combobox so that I can see when it changes value from firstvalue to secondvalue to thirdvalue etc.. ??

So far I have found that they are OLEObjects. I found a bit of code that counts all ActiveX comboboxes in a worksheet.

Sub try()

Dim Ws As Worksheet
Set Ws = Worksheets("Jämföra")
Count = 0

For Each OleObj In Ws.OLEObjects
    If OleObj.OLEType = xlOLEControl Then
        If TypeName(OleObj.Object) = "ComboBox" Then
            Count = Count + 1
        End If
    End If
Next OleObj

MsgBox "Number of ComboBoxes :" & Count

End Sub


MrExcel MVP, Moderator
Jun 12, 2014
Office Version
Cross posted

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

also here
Last edited:

Forum statistics

Latest member

Some videos you may like

This Week's Hot Topics

  • VBA (Userform)
    Hi All, I just would like to know why my code isn't working. Here is my VBA code: [CODE=vba]Private Sub OKButton_Click() Dim i As Integer...
  • List box that changes fill color
    Hello, I have gone through so many pages trying to figure this out. I have a 2020 calendar that depending on the day needs to have a certain...
  • Remove duplicates and retain one. Cross-linked cases
    Hi all I ran out of google keywords to use and still couldn't find a reference how to achieve the results of a single count. It would be great if...
  • VBA Copy and Paste With Duplicates
    Hello All, I'm in need of some input. My VBA skills are sub-par at best. I've assembled this code from basic research and it works but is...
  • Macro
    is it possible for a macro to run if the active cell value is different to the value above it
  • IF DATE and TIME
    I currently use this to check if date has passed but i also need to set a time on it too. Is it possible? [CODE=vba]=IF(B:B>TODAY(),"Not...