foutje door compabiliteitsmodus??

[Depant]

Goedemorgen allemaal,

Ik krijg een foutmelding in dit stukje macro.
Kan dat iets te maken hebben met de compabilteits modus, en zo ja hoe kan ik dat verhelpen??

ChDir "G:\OZ\Q-SYSTEEM\1e LIJN"
Workbooks.Open(Filename:="G:\OZ\Q-SYSTEEM\1e LIJN\NIR2.xls"). _
RunAutoMacros Which:=xlAutoOpen
Range("B" & CStr(Rows.Count)).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows("NIR2.Xls").Activate
ActiveWindow.Close

Groeten Henk Harbers

 

[Ginger]

En op welke regel krijg je dan welke foutmelding? Graag specifiek zijn!

 

[Depant]

Goedemorgen,

Excuus voor de onduidelijkheid

Workbooks.Open(Filename:="G:\OZ\Q-SYSTEEM\1e LIJN\NIR2.xlsm"). _
RunAutoMacros Which:=xlAutoOpen

Deze twee regels worden geel.....

Groeten Henk Harbers

 

[edmoor]

En dan nu de betreffende foutmelding nog.

 

[Depant]

foutmelding...

Hallo allemaal...


Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Fout 1004 tijdens uitvoering
Methode PasteSpecial van klasse range is mislukt

 

[edmoor]

Sla NIR2.xls eens op als NIR2.xlsx en probeer het dn nog eens. Plaats anders NIR2.xls eens hier en het document waarin de code staat die je on #1 laat zien.