Hi

I have the following code that creates a list of Months that just happen to
correspond to Tab names in my sheet. This works fine.

However, I have a ListBox1_Click routine that when I select the particular
date it lists all the data from 2 of the columns in that tab.

It all works OK if I have 3 or more lines worth of data (not including
header) but if I only have one line of data, not including header then it
just hangs. When I do a Funtion Break it highlights the "Next" which I guess
means it is stuck in a loop.

I have already had to add the Msg "Month Empty" to stop it throwing an error
then.

Admittidly I did copy this code from somewhere else and tried to adapt it.

Any help would be appreciated.

If EditListBox1.ListIndex < -1 Then
EditListBox2.Clear
Set sh = Worksheets(EditListBox1.Value)
If sh.Cells(2, 1).Value < "" Then
Set rng = sh.Range(sh.Cells(2, 1), sh.Cells(2, 1).End(xlDown))
For Each cell In rng
EditListBox2.AddItem cell(1, 1).Value & " " & cell(1, 3).Value
Next
Else
MsgBox "Month is empty"
End If
End If