Aanpassing macro

Hallo allemaal.

Allereerst mijn excuses voor het feit hoe ik deze vraag ga stellen. Maar omdat ik qua macro's een echte "thuisbakker" ben, kan ik het gewoon niet anders omdat mijn kennis hierin zeer beperkt is. Ik gebruik onderstaand stuk al jaren, en dit werkt naar volle tevredenheid. Ik kwam er vanochtend echter achter dat het tabblad "invoer" geselecteerd moet zijn.

Werkt niet

ChDir "G:\OZ\Q-SYSTEEM\1e LIJN"
Workbooks.Open(Filename:="G:\OZ\Q-SYSTEEM\1e LIJN\NIR2.xls"). _
Sheets("invoer").Select
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
ActiveWorkbook.Save
ActiveWindow.Close


werkt wel
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
ActiveWorkbook.Save
ActiveWindow.Close


Mijn vraag is dus hoe kan ik in dit stukje het tabblad "invoer" kan laten selecteren zonder dat de macro vastloopt?
Ik hoop dat jullie mij hiermee kunnen helpen.

Groeten Henk

Dit zou volgens mij voldoende moeten zijn.

Hartelijk bedankt!!
Het werkt uitstekend!!

De thuisbakker is fantastisch geholpen door de chef-kok.:thumb:

Dank voor de terugkoppeling:thumb:
Suc6