Faktura ud fra data i ordre

Option Explicit

Dim ws As Worksheet
Dim PathName As String
Dim FileName As String
Dim iCount As Integer
Dim Mounth As String
Const MyPath As String = "C:\Users\Desktop\Ordre\" ' Stien skal redigeres til den korekte sluttense med \

Sub CopyingRange()
    Set ws = ActiveSheet
    PathName = MyPath
    FileName = "Ordre.0" & ws.Range("A1").Value
    If Len(Dir(PathName & FileName & ".xls")) = 0 Then
        For iCount = 1 To 12
            Select Case iCount
                Case 1
                    Mounth = "Januar\"
                Case 2
                    Mounth = "Februar\"
                Case 3
                    Mounth = "Marts\"
                Case 4
                    Mounth = "April\"
                Case 5
                    Mounth = "Maj\"
                Case 6
                    Mounth = "Juni\"
                Case 7
                    Mounth = "Juli\"
                Case 8
                    Mounth = "August\"
                Case 9
                    Mounth = "September\"
                Case 10
                    Mounth = "Oktober\"
                Case 11
                    Mounth = "November\"
                Case 12
                    Mounth = "December\"
            End Select
            PathName = MyPath & Mounth
            If Not Len(Dir(PathName & FileName & ".xls")) = 0 Then Exit For
        Next iCount
    End If
    On Error GoTo myend
    Workbooks.Open PathName & FileName & ".xls"
    'Kode evt en private sub, der udfører det du vil
    Workbooks(FileName & ".xls").Close SaveChanges:=False
    Exit Sub
myend:
    If Not ws.Range("A1").Value = "" Then MsgBox ws.Range("A1").Value & " eksisterer ikke!!"
End Sub