Error message when trying to copy a sheet

[manac]

Hello!

I have copied this macro from another forum and managed to adapt it to my purpose. Now when I moved it to another joined server, it doens't work anymore. I get an error message when trying to copy the sheet ("Kontrakt"). As I am a total beginner in VBA, I struggle to understand why, even though I believe that's because something wrong at the beginning of the macro.

Could anyone help? I believe this is quite simple, but as a beginner it's impossible for me t find out a solution.

Regards!

Emmanuel


Sub Makro1()

Dim arbeidsark As Worksheet, i&, nomf$
Set arbeidsark = Worksheets("Liste over sensorer")
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
nomf = Range("A" & i)

vekting = Range("C" & i)
fagansvarlig = Range("B" & i)
dato = Range("D" & i)

Worksheets("Kontrakt").Copy

Range("I27") = nomf & " " & eksamensform
Range("L30") = vekting
Range("O27") = fagansvarlig

With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & "Sensorkontrakt" & " " & nomf & " " & eksamensform & ".xlsx"
.Close
End With

Next i
End Sub

[superspud]

Hi,

If you have copied the file from a local drive to a network drive then I would check the file path is still correct as it may have changed from "\" to "/"
If not include the error message and someone may be able the help further.

[manac]

Hi,

Thanks for your reply. I tried to change from "\" to "/", but the result is the same.

I get the following error message:

Path/File access error:`.\VBDB5C.tmp'

If that makes sense to someone.

Emmanuel