Userform Refresh Error!!!!

[nightcrawler23]

hi all,
i have a userform with a listboz and few buttons
i wanted to update the listbox whenever a new cell is selected.
i couldn't figure out the way so i just unload the form and reload it using the below code.

Sub formRefresh()
Application.ScreenUpdating = False
Unload frmPropList
frmPropList.Show
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If frmPropList.Visible = True Then
    formRefresh
End If
End Sub

The problem is every time a change selection the form goes off and comes back which looks odd. also the position is always center of the screen even if i change it.

Is there a way to come over it. Or is there another way to accomplish the same thing.

 

[GTO]

Off to the rack for me (well overdue), but for others... Care to share the form's code?

 

[nightcrawler23]

Off to the rack for me (well overdue), but for others... Care to share the form's code?

Didnt quite get you...My userform just has a listbox and the code is to populate the listbox.

Private Sub UserForm_Initialize()
Dim listProperties() As Variant
Dim propSh As Worksheet
listProperties = getProperties  'gets the 1st column elements

With Me.lbPropList
    .Clear
    If UBound(listProperties) > 0 Then
        For i = 1 To UBound(listProperties)
            Set propSh = Sheets(ActiveSheet.CodeName & "_" & listProperties(i))
            .AddItem listProperties(i): [COLOR="Red"].List(i - 1, 1) = propSh.Range(ActiveCell.Address).Value[/COLOR] ' line in red gets the 2nd column element
        Next i
        Else
        .AddItem "NO PROPERTIES DEFINED"
    End If
        .ListIndex = 0 ' select the first item
End With
End Sub