Why Am I Getting This Error Message Please?
I'm thinking
...ImportingSchedules.Option2ListBox.Selected(x).V alue...
should use something other than Selected. maybe:
.....ImportingSchedules.Option2ListBox.List(x,0).. .
HTH,
"Paige" wrote in message
...
I can't figure out why I'm getting an "invalid qualifier" error message on
this; each time it points to the word 'Selected' in the code. Any help
would
be appreciated. (All I want the code to do is: If an item is selected in
Option2ListBox, then I want to delete any row in the Schedules tab that
has
that item in Col H.)
Private Sub OKButton_Click()
Dim x As Integer
Dim Lrow As Long
'Loop through the items in the ListBox control.
For x = 0 To Option2ListBox.ListCount - 1
' If the item is selected, then deletes any row in the 'Schedules' tab
that
has that value in it
If Option2ListBox.Selected(x) = True Then
If worksheets("Schedules").cells(Lrow, "H").Value =
ImportingSchedules.Option2ListBox.Selected(x).Valu e Then
worksheets("Schedules").Rows(Lrow).Delete
End If
End If
Next x
Unload ImportingSchedules
End Sub
|