Åbne excel ark i VBA

Jeg skal lave et script, hvor jeg fra Word åbner et excel-regneark. Det skal være dynamisk, da selve worddokumentet vil ligge i en undermappe, og excelarket vil ligge i den overordnede mappe, derfor kan jeg ikke direkte pege på stien.

Desværre kan VBA ikke finde regnearket, da jeg får en 1004-fejl.

VBA siger at den ikke kan finde arket og henviser til stien: c:\Users\krvbe\Desktop\Test Mappe-SLET IKKETest Strukturskema 2.0

Men stien er helt konkret  c:\Users\krvbe\Desktop\Test Mappe-SLET IKKE\Test Strukturskema 2.0, dvs. der mangler en "\" mellem IKKE og Test.

Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
MyFolder = Left(ActiveDocument.Path, InStrRev(ActiveDocument.Path, "\") - 1)
MyFile = Dir(MyFolder & "\*.XLSM")
Do While MyFile <> ""
If MyFile Like "*Strukturskema*" Then
Workbooks.Open FileName:=MyFolder & MyFile
MyFile = Dir
End If
Loop
End Sub