Makrobedeutung
31.03.2003 22:38:56
Sandra
For i = 1 To UBound(arrFilenames)
If FileOpenYet(Dir$(arrFilenames(i))) = False Then
Workbooks.Open FileName:=arrFilenames(i)
Else
Workbooks(Dir$(arrFilenames(i))).Activate
End If
Anzeige