The program works on a single computer, and the network I use, but does
not work with citrix on a remote desktop (Not the same network).
The "Backup" macro works fine, but not the "Restore"
I paste both below:

This works:
Sub Backup()
ans = MsgBox("Ønsker du å lagre endringer før backup?", vbOKCancel)
If ans = vbOK Then ActiveWorkbook.Save
On Error Resume Next
MkDir ThisWorkbook.Path & "\" & "BackupBHA"
On Error GoTo 0
Dim Fname As String
Dim OrigFname As String
Dim Fpath As String
Dim sht As Worksheet
Dim strdate As String
strdate = Format(Now, "dd-mmm-yy h-mm-ss")
OrigFname = ActiveWorkbook.Name
'Denne må endres offshore
Fpath = ThisWorkbook.Path + "\" + "BackupBHA"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sht In Sheets
Fname = Fpath + "\" + sht.Name + strdate + ".csv"
sht.SaveAs Fname, FileFormat:=xlCSV
Next sht
Fname = Fpath + "\" + OrigFname
MsgBox "Det er tatt backup av alle filene. " & Date & ". BHA
masterlist vil nå lukkes."
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

This dont:
Private Sub Restore_Click()
'sett dialogparameter
UsrFrmRestore.Hide
On Error Resume Next
MkDir ThisWorkbook.Path & "\" & "BackupBHA"
On Error GoTo 0
Dim myFolder As String
Dim myFileName As Variant
Dim ExistingFolder As String
myFolder = ThisWorkbook.Path & "\" & "BackupBHA"
ExistingFolder = CurDir
ChDrive myFolder
ChDir myFolder
myFileName = Application.GetOpenFilename("BHA backup files (*.csv),
*.csv")
ChDrive ExistingFolder
ChDir ExistingFolder
If myFileName = False Then
MsgBox "Feil"
Exit Sub

Any suggestion?

*** Sent via Developersdex http://www.developersdex.com ***