Selected ListBox items to worksheet

[mikeymay]

I am using the following to establish which ListBox items have been selected

Private Sub btnSend_Click()

Dim rngBuyer As Range

Sheets("Holding").Range("Holding_SendClear").ClearContents

Set rngBuyer = Sheets("Holding").Range("Holding_PortfolioCatalogueSendStart").Offset(1, 0)

For intItem = 0 To lbBuyers.ListCount - 1
   If lbBuyers.Selected(intItem) = True Then
      rngBuyer = lbBuyers.List(intItem)
      
      Set rngBuyer = rngBuyer.Offset(1, 0)
      Else
   End If
Next intItem

Set rngBuyer = Nothing

End Sub

At the 1st line to ClearContents of any exiting list in the holding worksheet, the selected items in the ListBox are cleared/deselected and the loop doesn't detect any selected items.

Not entirely sure why and I can;t seem to find any answers anywhere. Can someone shed some light on why this is happening and how to resolve?

TIA

 

[RoryA]

Clear the RowSource property of the control and then whenever your code updates the list, use

lbBuyers.List = Range("your named range here").Value

 

[mikeymay]

Super!

Thanks RoryA

 

[RoryA]

Glad to help.