Select the last item:
Select the first item:Me.Lstbox.Selected(Me.LstBox.ListCount - 1) = True
Expression in textbox to displayMe.Lstbox.Selected(0) = TrueID: =Lstbox
Select the last item:
Select the first item:Me.Lstbox.Selected(Me.LstBox.ListCount - 1) = True
Expression in textbox to displayMe.Lstbox.Selected(0) = TrueID: =Lstbox
Last edited by Aussiebear; 06-15-2025 at 01:42 PM.
How to attach file: Reading and Posting Messages (vbaexpress.com), click Go Advanced below post edit window. To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.