ÆØÅ er blevet lavet om til andre tegn.

Goddag og godt nytår
Når jeg gemmer min fil via en VBA-kode under et navn fra en celle går det godt nok.
Jeg bruger så denne kode til at finde filen igen. Men af en eller anden grund er Excel begyndt at slette eller ændre ÆØÅ så der står ingenting eller nogle andre tegn.
2 eksempler.
Jeg gemmer filen under dette navn Bestilling til 19 september 2022 Århus.xlsx men når jeg køre min kode til at finde hvor filen ligger ser det sådan ud D:/ Bestilling til 19 september 2022  rhus.xlsx men skal se sådan ud D:\ Bestilling til 19 september 2022 Århus.xlsx
Eller sådan D:\Bestilling til 19 september 2022 Bræddebænken KBH.xlsx kommer til at se sådan ud D:\Bestilling til 19 september 2022 Br‘ddeb‘nken KBH.xlsx
Nogen der har en ide.
Hilsen Klaus W

Public Sub Find_and_Open_Product_Workbook()

Dim mainFolder As String, productCode As String
    Dim dirLines As Variant
    Dim i As Long, foundFile As String
 
    mainFolder = Range("k3")            'change
    productCode = Range("k4")          'change
 
    If Right(mainFolder, 1) <> "\" Then mainFolder = mainFolder & "\"
    dirLines = Split(CreateObject("wscript.shell").exec("cmd /c DIR /B /S /A-D /O-D " & Chr(34) & mainFolder & "*" & productCode & Chr(34)).StdOut.ReadAll, vbCrLf)
 
    foundFile = ""
    If UBound(dirLines) >= 0 Then
        i = 0
        While i < UBound(dirLines) And foundFile = ""
            If InStr(1, dirLines(i), "\Archive\", vbTextCompare) = 0 Then foundFile = dirLines(i)
            i = i + 1
        Wend
    End If
    If foundFile <> "" Then
        'MsgBox "Found " & foundFile, vbInformation, "Find Product workbook"
        ActiveSheet.Range("k9").Value = foundFile
    Else
        MsgBox "Excel fandt ikke filen " & productCode & " på drev " & mainFolder & " eller i nogle undermapper ", vbExclamation, "Find mappen"
    End If
   
    Close Workbook
   
  Send_Email_to_an_Address_in_Cell
   
End Sub