Setting an Object to a Variable

Short and sweet, I am trying to set an Object to a variable and am getting a "Type Mismatch" error on the line noted. I have tried other things and still can't get it to work, so I'm sure I'm missing something easy.

Formula:

' < BEGIN: Populate Data for Sequence Codes >

Dim sCombo As Object

Dim sComboName As String



sComboName = "Me.cboBaseSeq" & i



For i = 1 To 5

   Set sCombo = sComboName    ' <-- I get a "Type Mismatch" error on this line

   With sCombo

      If (i <> 1) Or (i <> 5) Then

         .AddItem "A"

         .AddItem "H"

      End If

      .AddItem "E"

      .AddItem "G"

   End With

Next i

Try this...

    ' < BEGIN: Populate Data for Sequence Codes >
    
    For i = 1 To 5
    
       With Me.Controls("cboBaseSeq" & i)
    
          If (i <> 1) Or (i <> 5) Then
    
             .AddItem "A"
    
             .AddItem "H"
    
          End If
    
          .AddItem "E"
    
          .AddItem "G"
    
       End With
    
    Next i

Thanks guys. Both answers helped me out a lot and it allowed me to do a lot of things with userforms I didn't know were possible.

Anyway, I thought I had posted a response back in November, but apparently I didn't hit the right button or something.