List Box Not populating on first open of form

[tbird123]

Hello All,

I have a user form with list box that is populated from a sheet in my workbook. However, when I click my button to run "Show_StatusForm" once and open the form, the list box will not populate. However, if I close the form and then reopen it with the same button, the list box will be populated. I don't understand why it will not populate the list box the first time I open the form.


This first section here is where I open the form and call my "listBoxReference" which populates the list box.

Sub Show_StatusForm()
    frmCCRStatus.Show
    Call ListBoxReference
End Sub

This section here is my called sub to populate the list box.

Sub ListBoxReference()

    Dim iRow_Open As Long
    
    'Find the last blank row
    iRow_Open = ThisWorkbook.Worksheets("Open_CCR").Range("A" & Rows.Count).End(xlUp).Row
    
    'Set Open list box reference
    frmCCRStatus.lstOpenCCR.ColumnCount = 16
    frmCCRStatus.lstOpenCCR.ColumnHeads = True
    
     frmCCRStatus.lstOpenCCR.RowSource = "Open_CCR!A2:O" & iRow_Open
    
    'If iRow_Open = 1 Then
     '   frmCCRStatus.lstOpenCCR.RowSource = "Open_CCR!A2:O2"
    'Else
    '    frmCCRStatus.lstOpenCCR.RowSource = "Open_CCR!A2:O" & iRow_Open
    'End If

End Sub

 

[Momentman]

It may just be the order in which you are doing things.

Except there is a reason not to I will place the code in ListBoxReference under the Userform_initialize module(or call it from within the initialize module)

and then my first code would simply be

Sub Show_StatusForm()
    frmCCRStatus.Show
End Sub

The initialize code would run before the form is displayed(i.e form.show), so this should be fine