[ChrisGT7]

Καλημέρα Γιώργο,

Επειδή δε γνωρίζω τον τρόπο που γεμίζει το ListBox, δοκίμασε να δεις αν λειτουργεί ο παρακάτω κώδικας:

Private Sub CmdDelete_Click()
    Dim I As Long
    For I = LsBx.ListCount To 1 Step -1
        If LsBx.Selected(I) Then Rows(I + 1).Delete
    Next
    LsBx.RowSource = "A2:A" & Range("A" & Rows.Count).End(xlUp).Row
End Sub

Αλλιώς ανέβασε ένα δείγμα του αρχείου με τη φόρμα διαγραφής. Πάντως ο γενικός κανόνας όταν διαγράφουμε γραμμές είναι να ξεκινάμε ανάποδα, δηλαδή από κάτω προς τα πάνω.