ExcelBanter - Error (empty list box)?

Hi,

See VBA macro below:

The macro is to find the number of marked entities in the list bo
"cboSecondary" which can be found on the worksheet "combo".

However there are something wrong with the macro... but I don't kno
what.. Tryied for about 2 days now... see error attached.

Thanks

Sub Update_task_part2()
' This macro adds the tasks picked in the List Box and adds them t
the
' Tasks revenue part of the form
' Created by Christian Simonsen 21/03/06

Dim mRows As Long
Dim i As Long
Dim Msg As String

' hides/unhides the required rows depending on the number of tasks
' picked
mRows = 0
With combo.Shapes(cboSecondary)
For i = 0 To .ListCount - 1
If .Selected(i) Then mRows = mRows + 1
Next
End With
Range("list_rev").EntireRow.Hidden = False
mRows = 10 - mRows + 1
Range("list_rev").Rows("" & _
mRows & ":10").EntireRow.Hidden = True

' Gets the task numbers for the rows
With combo.Shapes(cboSecondary)
For i = 0 To .ListCount - 1
If .Selected(i) Then
Msg = Msg & .List(i) & vbCrLf
End If
Next i
End With

If Len(Msg) = 0 Then
Msg = "No items selected"
Else
MsgBox Msg
End If

End Su

+-------------------------------------------------------------------
|Filename: error.jpg
|Download: http://www.excelforum.com/attachment.php?postid=4503
+-------------------------------------------------------------------

--
Ctec

-----------------------------------------------------------------------
Ctech's Profile: http://www.excelforum.com/member.php...fo&userid=2774
View this thread: http://www.excelforum.com/showthread.php?threadid=52525