Fejl i makro - Path/File access error

Jeg har en fejl i nedenstående makor:

Når jeg afspiller den, kommer følgende fejl:

Path/File access error (Error 75)

Jeg har på fornemmelsen at det er i disse 3 linjer jeg skal finde fejlen:

A = Dir("c:\Betalingstjek\*.*")
            If A = "" Then
            MkDir ("c:\Betalingstjek")


Så vidt jeg kan se, så burde det ikke give problemer, idet det er C-drevet der skrives til.

Men hvad er fejlen?
Jeg har lavet makroen i Office XP men bruger den i Office 2003!

Hilsen H_S

MAKRO:

Public Sub cmdGemSomLokal_Click()
Dim Blank
Dim OK
Dim i As Long
Dim MyArray
Set x = Range("D8")
 
  If x = "" Then
     
      'Hvis "D8" er " ", så kommer der en meddelse om at man skal skrive Kundenavn
    Blank = MsgBox(prompt:="Husk at skrive Kundenavn!", Title:="Meddelelse", Buttons:=vbInformation)
  Else
      'Sletter alle special tegn før filen gemmes på C-drevet
      x = [D8]
      MyArray = Array("*", "!", """", "¤", "%", "&", "/", "(", ")", "=", "?", ";", ":", ",", ".", "$")
      For i = LBound(MyArray) To UBound(MyArray)
      x = Replace(x, MyArray(i), "")
      Next
   
     
      'Vises "Konstrureret filnavn"
      OK = MsgBox(prompt:="Vil du gemme filen som: " & x & "-" & Format(Now(), "yy"), _
        Title:="Filnavn", Buttons:=vbQuestion + vbYesNo)
        If OK = vbNo Then
           
        Else
            A = Dir("c:\Betalingstjek\*.*")
            If A = "" Then
            MkDir ("c:\Betalingstjek")
        End If
        'Gemmer fil
        FilNavn = "C:\betalingstjek\" & x & "-" & Format(Now(), "yy")
        ActiveWorkbook.SaveAs Filename:=FilNavn, FileFormat:=xlNormal
        'Lukker "Er du sikker-popup"
   
        'Viser Messegebox
        MsgBox ("Betalingstjekket er gemt som C:/Betalingstjek/" & x & "-" & Format(Now(), "yy"))
  End If
  End If
 
  End Sub