I'm populating listboxes and want to reduce screen flicker. If I populate
them between the screenupdating=false and screenupdating=true commands, the
items in the listboxes aren't displayed. If I don't use the screenupdating
commands all of the objects on the page flicker each time a line is added to
the listbox. Is there a way to see these items wihle still eliminating the
flicker?

It will be easier to help if you post the code you're using to populate them.

"Merlynsdad" wrote:

I'm populating listboxes and want to reduce screen flicker. If I populate
them between the screenupdating=false and screenupdating=true commands, the
items in the listboxes aren't displayed. If I don't use the screenupdating
commands all of the objects on the page flicker each time a line is added to
the listbox. Is there a way to see these items wihle still eliminating the
flicker?

Here's the code:

Application.ScreenUpdating = False

Set wsq = ActiveSheet

Me.Activate
lstEmpFrom.Clear
lstEmpTo.Clear

'Make the EmpMonDates collection

On Error Resume Next
For Each cell In wsq.Range("$b$17:$b$100")
EmpMonDates.Add cell.Value, CStr(cell.Value)
Next cell

'Sort the EmpMonDates collection

For i = 1 To EmpMonDates.Count - 1
For j = i + 1 To EmpMonDates.Count
If EmpMonDates(i) EmpMonDates(j) Then
Swap1 = EmpMonDates(i)
Swap2 = EmpMonDates(j)
EmpMonDates.Add Swap1, befo=j
EmpMonDates.Add Swap2, befo=i
EmpMonDates.Remove i + j
EmpMonDates.Remove j + i
End If
Next j
Next i

On Error GoTo 0

'Add the dates to the list boxes

For Each Item In EmpMonDates
ActiveSheet.lstEmpFrom.AddItem Item
ActiveSheet.lstEmpTo.AddItem Item
Next Item
Application.ScreenUpdating = True

"B Lynn B" wrote:

It will be easier to help if you post the code you're using to populate them.

"Merlynsdad" wrote:

I'm populating listboxes and want to reduce screen flicker. If I populate
them between the screenupdating=false and screenupdating=true commands, the
items in the listboxes aren't displayed. If I don't use the screenupdating
commands all of the objects on the page flicker each time a line is added to
the listbox. Is there a way to see these items wihle still eliminating the
flicker?

Here's the code:

Application.ScreenUpdating = False
Set wsq = ActiveSheet

Me.Activate
lstEmpFrom.Clear
lstEmpTo.Clear

'Make the EmpMonDates collection

On Error Resume Next
For Each cell In wsq.Range("$b$17:$b$100")
EmpMonDates.Add cell.Value, CStr(cell.Value)
Next cell

'Sort the EmpMonDates collection

For i = 1 To EmpMonDates.Count - 1
For j = i + 1 To EmpMonDates.Count
If EmpMonDates(i) EmpMonDates(j) Then
Swap1 = EmpMonDates(i)
Swap2 = EmpMonDates(j)
EmpMonDates.Add Swap1, befo=j
EmpMonDates.Add Swap2, befo=i
EmpMonDates.Remove i + j
EmpMonDates.Remove j + i
End If
Next j
Next i

On Error GoTo 0

'Add the dates to the list boxes

For Each Item In EmpMonDates
ActiveSheet.lstEmpFrom.AddItem Item
ActiveSheet.lstEmpTo.AddItem Item
Next Item
Application.ScreenUpdating = True

"B Lynn B" wrote:

It will be easier to help if you post the code you're using to populate them.

"Merlynsdad" wrote:

I'm populating listboxes and want to reduce screen flicker. If I populate
them between the screenupdating=false and screenupdating=true commands, the
items in the listboxes aren't displayed. If I don't use the screenupdating
commands all of the objects on the page flicker each time a line is added to
the listbox. Is there a way to see these items wihle still eliminating the
flicker?