Zdar a silu David, dna 30.10.2002 si napisal(a):
> Zkusim to napsat polopate
>
> Tak snad uz jsem to napsal lepe
>
nepomohlo to :-(
myslim, ze sa srabes lavou rukou na pravom uchu ;-)
ale na to co si sa pytal uuuplne na konci skus si:
-----------------cut ------------------------------------------------
Sub SwitchToWrkb()
pocetSoub = Application.Workbooks.Count
For i = 1 To pocetSoub
myVyber = myVyber & i & ". Nazev: " & _
Application.Workbooks(i).Name & vbLf
Next
myResult = InputBox _
("Zadejte por. cislo souboru na ktery blabla....." & _
vbCrLf & myVyber)
If myResult <> "" Then _
Application.Workbooks(CLng(myResult)).Activate
End Sub
-----------------end cut----------------------------------------
s pozdravom
AleXXX
--
Remember: there are no strangers in the world,
only friends who have not yet met.
This archive was generated by hypermail 2.1.2 : 30. 10. 2002, 08:35 CET