Werte von einer Mappe in eine andere Mappe kopiere

Sub WorkbookKlientOpen()
Dim WB As Workbook
Dim strDatei As String
Dim strSheet As String
On Error GoTo fehler
strDatei = Dir("C:\Versuche\*" & Format(Range("E6"), "0000") & "*.xlsm")
strSheet = Format(Range("E7"), "0000")
If strDatei  "" Then
Set WB = Workbooks.Open("C:\Versuche\" & strDatei)
WB.Worksheets(strSheet).Select
End If
Exit Sub
fehler:
MsgBox "¡Proyecto no existe!"
End Sub