Refreshing a list box with Excel 2012 Mac
I have 2 list boxes on a userform. lb1 & lb2 (both multicolm and linked to ranges on different sheets)
When I click on a selection in listbox1(lbshowdata) it will move the selection over to listbox2 (lbEditData) and delete the selection in sheet(range) for listbox1
Listbox 2 ( .list) then is updated and the listbox shows the update, However I can not get listbox1.list to update itself. This is all handled via listbox1_click event.
Code is shown below
Any help would be greatly appreciated. Thanks in advance


Private Sub lbShowData_Click()
Dim lbtarget As MSForms.ListBox
Dim rngSource As Range
Dim stRow As String, stRow2 As String
Dim inSDNum As Long, inSDCount As Long, inEDCount As Long, stSDNum As String, stEDCount As String
If Me.ckEditOpt1 = True Then
inSDNum = lbShowData.Value
Sheets("FilteredData").Select
inSDCount = (Range("M65536").End(xlUp).Row)
Do Until inSDCount = 1
Sheets("FilteredData").Select
stRow = "M" & Trim(Str(inSDCount))
Range(stRow).Select
If Range(stRow) = inSDNum Then
srRow = "A" & Trim(Str(inSDNum))
Range(stRow).EntireRow.Copy
Sheets("EditData").Select
inEDCount = (Range("M65536").End(xlUp).Row + 1)
stRow2 = "A" & Trim(Str(inEDCount))
Range(stRow2).EntireRow.PasteSpecial
'This deletes the copied row in filtereddata
Sheets("FilteredData").Select
Range(stRow).EntireRow.Delete
'This resets the listsource in lbEditdata
RefreshEditData
End If
inSDCount = inSDCount - 1
Loop
Else
stMsg = "The check box labeled 'Edit Selected Items' must be checked" & Chr(13)
stMsg = stMsg & "for this option to be available."
MsgBox stMsg
End If
End Sub

Sub RefreshEditData()
Dim lbtarget As MSForms.ListBox
Dim rngSource As Range
Sheets("EditData").Select
If (Range("E65536").End(xlUp).Row) > 1 Then
Set rngSource = Worksheets("EditData").Range("B2:M" & (Range("E65536").End(xlUp).Row))
Set lbtarget = Me.lbEditData
With lbtarget
.List = rngSource.Cells.Value
End With
End If
End Sub

Sub RefreshShowData()
Dim lbtarget As MSForms.ListBox
Dim rngSource As Range
Sheets("FilteredData").Select
If (Range("E65536").End(xlUp).Row) > 1 Then
Set rngSource = Worksheets("FilteredData").Range("B2:M" & (Range("E65536").End(xlUp).Row))
Set lbtarget = Me.lbShowData
With lbtarget
.List = rngSource.Cells.Value
End With
End If
End Sub