Listbox displaying incorrectly on opening worksheet

  • Thread starter Thread starter Scott
  • Start date Start date
S

Scott

Hi,

I have a Listbox. When I first open the spreadsheet, the Listbox
values text don't visually appear. I can click on the spots in the
listbox where the text is and thereafter it appears. Alternately, if
I switch tabs and then come back it also shows properly.

It seems to be due to ScreenUpdating; however I do this after the
values have been populated (same result putting it before). If the
ScreenUpdating portion is completely removed, it displays the values
text properly. However, I'd prefer to have ScreenUpdating disabled
for the second section of code.

I'm populating the values in Workbook_Open, code as below.

Thanks, Scott

-------------------------------------------------------

Private Sub Workbook_Open()
Dim i As Long

'Application.ScreenUpdating = False '<== Initial position of
ScreenUpdating

With wksMomMpaScatter
For i = 0 To ReportPlantsInfo.Range("ReportPlantListFull").Count -
1
.ListBox1.AddItem
ReportPlantsInfo.Range("ReportPlantListFull").Cells(i + 1, 1)
.ListBox1.Selected(i) =
ReportPlantsInfo.Range("ReportPlantListFull").Offset(0, 1).Cells(i +
1, 1)
Next i
End With

Application.ScreenUpdating = False '<== Alternate position for
ScreenUpdating

.... {Other code} ....

Application.ScreenUpdating = True

End Sub
 
If it's just a display problem -- and it sounds like it is, since the program
works fine if the screenupdating portion is removed...

Maybe you can add a change sheet and change back at the bottom of your code.

And if that fails, do it with screen updating on. You'll have a bit of
flashing, but at least it'll show correctly.
 
Back
Top