Daten in geschlossene Datei exportieren

Public Sub Schreiben()
Dim sPfad         As String     ' der Ordner-Pfad der Excel-Mappen
Dim sDatei        As String     ' die zu beschreibende Datei
Dim WkSh_Q        As Worksheet  ' das Quell-Tabellenblatt - die Herkunft
Dim WkSh_Z        As Worksheet  ' das Ziel-Tabellenblatt - das Ergebnis
sPfad = "D:\Anwendungsdaten\Exceldaten\Excel-Dateien\"
sDatei = "Dialogdaten.xlsm"
Application.ScreenUpdating = False
If Dir(sPfad & sDatei)  "" Then
Workbooks.Open (sPfad & sDatei)
ThisWorkbook.Activate
'Application.ActiveWindow.Visible = False
Else
MsgBox "Den angegebenen Ordner """ & sPfad & """" & Chr(10) & _
"und/oder die gesuchte Datei """ & sDatei & """ gibt es nicht!", _
16, "   Hinweis für " & Application.UserName
Exit Sub
End If
Set WkSh_Q = ThisWorkbook.Worksheets("Vorgabedaten")
Set WkSh_Z = Workbooks(sDatei).Worksheets("Vorgabedaten")
WkSh_Q.Cells.Range("B1:B27").Copy Destination:=WkSh_Z.Range("B1:B27")
Workbooks(sDatei).Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Daten wurden erfolgreich übergeben.", _
64, "   Information für " & Application.UserName
End Sub