Looping
Dim colMyItems As Collection
Set colMyItems = New Collection
colMyItems.Add "Monday"
colMyItems.Add "Tuesday"
colMyItems.Add "Tuesday"
For - Each
The variable must be of type Object
Dim oMyObject As Object
For Each oMyObject In colMyItems
MsgBox MyObject
Next MyObject
For - Next
Dim lcount As Long
For lcount = 1 To colMyItems.Count
MsgBox colMyItems.Item(lcount)
Next lcount
© 2023 Better Solutions Limited. All Rights Reserved. © 2023 Better Solutions Limited TopPrevNext