[vba]
Private Sub cmdRun_Click()
Dim i As Long
With Me.ListBox1
For i = 0 To .ListCount
Workbooks.Open Filename:=.List(i)
Next i
End With
End Sub
[/vba]
[vba]
Private Sub cmdRun_Click()
Dim i As Long
With Me.ListBox1
For i = 0 To .ListCount
Workbooks.Open Filename:=.List(i)
Next i
End With
End Sub
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote