tabblad opslaan in andere directory als nieuw bestand

[dbk]

Goedemiddag allen,

Met een heleboel input van dit forum heb ik een code gemaakt welke het volgende (moet) doen:
- Blad 8 kopiëren
- Blad 8 opslaan als een nieuw Excel bestand op de “D:\Test” (deze schijf hebben namelijk alle PC’s op ons werk)
- Aansluitend deze opslaan met een nieuwe naam (“celverwijzing” en tekst)
- Mailen naar een vast E-mail adres met als onderwerp een vooraf ingestelde naam(“celverwijzing” en tekst)
- Het nieuwe bestand sluiten en terug gaan naar het reeds geopende bestand

De onderstaande code doet 1* wat ik verwacht, maar als ik hem de 2-de keer activeer geeft hij een foutmelding dat hij niets kan opslaan op de C-schijf (C schijf is geblokkeerd tegen schrijven).

Als het bestand opnieuw wordt opgestart, dan doet de code het weer.

'blad 8 kopiëren naar nieuw bestand en mailen
Blad8.Copy
ChDir "D:\Test"
ActiveWorkbook.SaveAs Range(["b5"]).Value & " West"
   Selection.Copy
   Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=False
   Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=False

    With ActiveWorkbook
         .SendMail Recipients:="naam@naar.test", _
        Subject:=Range(["b5"]).Value & " West"
        .Close SaveChanges:=False
End With

Doe ik iets verkeerd qua opbouw van de code ?
Kan de code eenvoudiger (dus fout ongevoeliger) ?

Alvast bedankt!
DBK