Excel aktív munk?==?UTF-8?Q?alap beállítás ?==?UTF-8?Q?több munkafüzet ?==?UTF-8?Q?esetén

[Fodor Zsolt]

On Sat, 9 Feb 2013 21:13:58 +0100, Zsolt Nagy wrote
> >  Adott több excel állomány amelyeken egyszerre szeretném beállítani, h
> >> melyik legyen az aktív munkalap :)
> >> pl: van 5 munkalapja mindegyiknek, és azt szeretném, h. a 3. munkalap
> >> legyen aktív -> mindegyik állományban a munkalapoknak egy, forma neve van,

Erre gondoltam:
Mondjuk ez 2003-asban működik, mert az volt kéznél:

Sub egylap()
    Set aktiv = ActiveWindow
    nev = ActiveSheet.Name
    
    Db = Workbooks.Count
    For i = 1 To Db
        Workbooks(i).Activate
        Sheets(nev).Select
    Next i
    aktiv.Activate
End Sub

Üdv: Fodor Zsolt