Sheet select geeft foutmelding

[hugon]

Beste Forumleden,

Ik heb een probleem met een bestand en heb geen idee hoe ik dit opmoet lossen

Private Sub Workbook_open()


 Windows(1).WindowState = xlMaximized
 Application.DisplayAlerts = False
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual

    Workbooks.Open Filename:="G:\Q-schijf_KGF.xls"
    [COLOR="#FF0000"] Sheets("Map <> Local <> Global").Select[/COLOR]    
         Range("B1:F1").Select
            Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
                Selection.Copy
    Windows("Zoek-Q.xls").Activate
        Sheets("MGL").Select
            Range("A1").Select
                ActiveSheet.Paste

Het rood gekleurde deel geeft een foutmelding, de benaming van het werkblad heb ik gecontroleerd.
Iemand enig idee waarom om dit niet werkt ?
Al vast bedankt

 

[Roncancio]

Heet de sheet echt zo?
Wat je kan doen is het indexgetal van de sheet gebruiken.
Dus Worksheets(1) voor de 1e sheet, Worksheets(2) voor de 2e sheet, etc.
Probleem is alleen als de volgorde van de sheets verandert.

Nog beter is dan om de naam van de sheet te gebruiken die in de VBE staat.

Met vriendelijke groet,


Roncancio

 

[Cobbe]

Pas de code eens aan:

Windows(1).WindowState = xlMaximized
 Application.DisplayAlerts = False
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual

    Workbooks.Open Filename:="G:\Q-schijf_KGF.xls"
     Sheets("Map <> Local <> Global").Range("B1:F1").SpecialCells(xlLastCell).Copy
    Windows("Zoek-Q.xls").Activate
        Sheets("MGL").Range("A1").ActiveSheet.Paste