Loop Edit

[Todd Huttenstine]

The below code looks for values in the specified range and
adds that value to the listbox. What I would like is for
the code to skip over column Z(not add the value to the
list box) even if there is a value in that column in that
row. How would I do this?

Also I want the code to not add a value to the listbox if
it is is equal to "test".

Private Sub UserForm_Initialize()
Dim Rng As Range
With ListBox1
'Or With ComboBox1
.ColumnCount = 1
For Each Rng In Range("A4:AB4").Cells
If Rng.Text <> "" Then
.AddItem Rng.Text
End If
Next Rng
End With

End Sub


Thanx,

Todd

 

[Don Guillett]

try
if rng.column <>26 and Rng.Text <> ""