ehcpieterse
Active Member
- Joined
- Nov 16, 2006
- Messages
- 278
I have a userform that gets values for combo boxes. It has been working perfectly, but I'm getting an error: "Expected variable or procedure". Could someone please explian to me why this is happening?
My code:
Private Sub UserForm_Initialize()
Dim colNum As Long: colNum = Cells(1, Columns.Count).End(xlToLeft).Column
If colNum > 1 Or (colNum = 1 And Range("A1").Value <> "") Then
For i = 1 To colNum
ComboBox1.AddItem Cells(1, i).Value
ComboBox2.AddItem Cells(1, i).Value
Next i
End If
End Sub
My code:
Private Sub UserForm_Initialize()
Dim colNum As Long: colNum = Cells(1, Columns.Count).End(xlToLeft).Column
If colNum > 1 Or (colNum = 1 And Range("A1").Value <> "") Then
For i = 1 To colNum
ComboBox1.AddItem Cells(1, i).Value
ComboBox2.AddItem Cells(1, i).Value
Next i
End If
End Sub