Solved
Werner_EAnswer
25-Diamond I
Jan 26, 2026 3:11 PM UTC
You could use "ReDim" to redimension variable "Section".
Sub ComboBoxEvent_Start()
Material= Worksheet.GetValue("Material")
If Material= "Cast Iron" Then
Dim Section(2)
Section(0) = "1"
Section(1) = "2"
Section(2) = "3"
ElseIf Material= "Steel" Then
ReDim Section(2)
Section(0) = "A"
Section(1) = "B"
Section(2) = "C"
Else
ReDim Section(4)
Section(0) = "A1"
Section(1) = "B2"
Section(2) = "C3"
Section(3) = "D3"
Section(4) = "E3"
End If
ComboBox.List() = Section
End Sub

