View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
George Nicholson George Nicholson is offline
external usenet poster
 
Posts: 149
Default 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