Is It Possible to Refresh A Userform Using Worksheet Change Event

hi,
Is it possible to refresh a Userform As i input data Sheet1.range(h10:h1000") using worksheet change event

thank you

When you say refresh, do you mean clear any data in the userform, or have the userform open?

i have a listbox on my userform. which one is showing data and need to refresh this list to see the updated records

thank you

Open your userform modeless and use next code to fill listbox.

Private Sub UserForm_Initialize()
    ListBox1.List = Sheet1.Range("H10:H1000").Value
End Sub

Then in your eventcode use this.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H10:H1000")) Is Nothing Then UserForm1.ListBox1.List = Range("H10:H1000").Value
End Sub

Thank You Bakerman2 for reply
i am using this code to fill my listbox
and want to populate data of Sheets("entry")

Private Sub OptionButton1_Click()
Dim Sh As Worksheet, LR As Long
Set Sh = Sheets("ENTRY")
With Sh
    LR = .Range("C" & .Rows.Count).End(xlUp).Row
    'Me.Label1.Caption = "Total [ " & Application.WorksheetFunction.CountIF(.Range("Q10:Q" & LR), ">" & "0") & " ] Transaction Found"
    vl2 = .Application.WorksheetFunction.CountIF(.Range("Q10:Q" & LR), ">0") ' start form
    For j = 10 To LR ' stating row
        If vl2 > 0 Then
        vl = .Range("Q" & j).Value
        If vl > 0 Then
            r = j
            ListBox1.AddItem
            For k = 0 To 16
                ListBox1.List(ListBox1.ListCount - 1, k) = .Cells(r, k + 3)
            Next
        End If
            
        Else
            ' MsgBox "There is No Greater Than Zero(0) Value", vbInformation, "Greater Than Zero"
            Exit Sub
        End If
    Next
End With
End Sub

Private Sub UserForm_Initialize()
Dim Sh As Worksheet, LR As Long
Set Sh = Sheets("ENTRY")
With Sh
    LR = .Range("C" & .Rows.Count).End(xlUp).Row
    Me.ListBox1.ColumnCount = 16
    Me.ListBox1.ColumnWidths = "1.5in;1in;.0in;.0in;.0in;.0in;.0in;.0in;.0in;.0in;.0in;.0in;.0in;0in;.5in;.5in;"
Const cols = 16
    Dim listarray(0, 0 To cols) As Variant
        For col = 0 To cols
            listarray(0, col) = .Cells(9, col + 3)
        Next col
Me.ListBox1.List = listarray
Me.ListBox1.ListIndex = -1
End With
Me.OptionButton1 = True
End Sub

Build your array in your Change-Event and pass it to the Userform ListBox.