Hi Everyone,

I have a code that supposed to run after vbModeless but unfortunately it doesn't. It should display the listbox content where i could choose from the list. Listbox content will only displays the content once listbox is clicked.
I hope you code help me on this. Below is my code for your reference.

#Sub sample()
Application.ScreenUpdating = False
If Range("s1") = 0 Then
MsgBox "There items saved in this file"
End
End If

Application.ScreenUpdating = False


CURRENTSHEET = ActiveSheet.Name

'Sheets("3").Visible = True
'Sheets("raw data 2").Visible = True
Sheets("3").Range("A2:AAA1000").ClearContents



Sheets("raw data 2").Range("xfd1001") = CURRENTSHEET

Sheets(CURRENTSHEET).Select


userform1.StartUpPosition = 0
userform1.Top = Application.Top + 25
userform1.Left = Application.Left + Application.Width - userform1.Width - 25

userform1.Show vbModeless

End Sub#

This is my code that supposed to run after vbmodeless

#Private Sub ListBox1_Enter()

Application.ScreenUpdating = False


ListBox1.Clear

Sheets("raw data 2").Range("FA1:xfd1000").ClearContents


With ListBox1
.AddItem Sheets("Raw data1").Range("B2")
.AddItem Sheets("Raw data1").Range("B3")
.AddItem Sheets("Raw data1").Range("B4")
.AddItem Sheets("Raw data1").Range("B5")
End with

End sub
#

Thank you.