Hi guys,
Can anyone help me please. I have a small problem :
I'm trying to use ListCount property of an ListBox in This Workboo
object of the workbook and I get run-time error '424' Object requierd.
The script is the following:
Private Sub workbook_open()
Dim d3 As Integer
Dim d4 As Integer
d3 = ListBox1.ListCount - 1
For d4 = 0 To d3
With Sheets("WERA Scorecard").Range("B35:B100")
Set D = .Find(ListBox1.List(d4), LookIn:=xlValues
LookAt:=xlWhole)
If Not D Is Nothing Then
ListBox1.Selected(d4) = True
Else
End If
End With
Next d4
End Sub
I'm not a programmer so I just read help and try to figure it out bu
this time I didn't manage to find the solution.
I would be really happy if somebody can help me with this issue.
Thanks
--
cristio2
-----------------------------------------------------------------------
cristio26's Profile:
http://www.excelforum.com/member.php...fo&userid=1551
View this thread:
http://www.excelforum.com/showthread.php?threadid=27082