Sluiten workbook na opslaan

[allard1]

Vrienden,

Ik heb een VB script geschreven om een workbook ergens anders op te slaan, nadat de sheet is gevuld. Tot zover het goede nieuws. Er zijn alleen twee zaken die ik niet voor elkaar krijg en dat zijn de volgende:
* Spaties in de bestandsnaam (het wordt nu een lang woord)
* Sluiten van de nieuwe sheet nadat deze is opgeslagen.

Misschien wil ik teveel, maar wellicht heeft iemand een oplossing.

Groet,
Allard :thumb:

P.s. onderstaand het VB script

Private Sub Opslaan_Click()
Dim Msg, Style, Title, Response, Mystring
Msg = "Wil je dit evaluatieformulier opslaan?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Vraag"

Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then

Dim Naam_Project
Set Naam_Project = Worksheets("Evaluatieformulier").Range("B3")

Dim Naam_medewerker
Set Naam_medewerker = Worksheets("Evaluatieformulier").Range("B2")

Dim MyDate
MyDate = Date
Dim datumtekst
datumtekst = CStr(MyDate)


Sheets("Evaluatieformulier").Select
Sheets("Evaluatieformulier").Copy
ChDir "H:\"
ActiveWorkbook.SaveAs Filename:="H:\Evaluatieformulier" & Naam_Project & datumtekst, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

MsgBox "Je evaluatieformulier is opgeslagen, je kunt het opgeslagen formulier contoleren en sluiten", vbInformation, "Mededeling"

Else
MsgBox "Er is niets opgeslagen.", vbInformation, "Mededeling"


End If

End Sub

 

[Wigi]

ActiveWorkbook.Close

na het opslaan.

 

[allard1]

ActiveWorkbook.Close

na het opslaan.

Wigi nogmaals bedankt!!!!!!! :thumb: