to see your code would be the first step to troubleshoot
I was looking for a somebody who have experiensed the same problem. This macro used to work fine, no changes have been made to the module, no commands uses sub or likewiese, but here is the code:
______________________________________________________________________________________
Sub Kopier_til_fakturagrunnlag()
'
' Kopier_til_fakturagrunnlag Macro
' Kopierer aktuell kunde til fakturagrunnlaget.
'
Dim kundenr, kundenavn, adresse, poststed, k_ref, f_gr_lag, v_ref, f_dato, f_type, linjer
Dim rec_dato, rec_tog, rec_container, rec_k_ref, fra, til, pris, ekstra_loft, teu, rabatt
Dim avbestilling, farlig_gods, tillegg, linjenr, uke, belop, avd, mail
Windows("Faktura bilag John september 2014.xlsm").Activate
Sheets("Fakturabilag").Activate
kundenr = Cells(8, 4).Value
kundenavn = Cells(9, 4).Value
adresse = Cells(10, 4).Value
poststed = Cells(11, 4).Value
k_ref = Cells(12, 4).Value
f_gr_lag = Cells(13, 4).Value
mail = Cells(14, 4).Value
v_ref = Cells(8, 6).Value
uke = Cells(9, 6).Value
belop = Cells(10, 6).Value
f_dato = Cells(11, 6).Value
f_type = Cells(13, 6).Value
Range("Table1[[#Headers],[Faktura grunnlag]]").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=19, Criteria1:= _
f_gr_lag
linjer = Cells(15, 1).Value
Workbooks.Open Filename:= _
"Y:\Booking\faktura bilag\ferdige grunnlag\Cargolink fakturagrunnlag bookingark.xltx" _
, Editable:=True
' ===========================================================================================
' ITS HERE IT JUMS TO A DIFFERENT MACRO. WHEN I DROP THE ACTUALS LINES IT JUMPS AT THE NEXT LINE
' ===========================================================================================
ActiveWorkbook.SaveAs Filename:="y:\Booking\faktura bilag\ferdige grunnlag\" & f_gr_lag & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Windows("Cargolink fakturagrunnlag bookingark.xltx").Activate
Sheets("Fakturagr").Activate
Cells(12, 8) = kundenr
Cells(9, 8) = f_type
Cells(15, 3) = kundenavn
Cells(16, 3) = adresse
Cells(17, 3) = poststed
Cells(20, 5) = f_gr_lag
Cells(22, 5) = k_ref
Cells(22, 14) = v_ref
Cells(14, 16) = f_dato
Cells(16, 16) = f_dato
Cells(18, 16) = avd
Cells(20, 16) = " MV "
Windows("Faktura bilag John september 2014.xlsm").Activate
Sheets("Fakturabilag").Activate
Cells(4950, 3).Select
Range(Selection, Selection.End(xlUp)).Select
linjenr = ActiveCell.Row
tog = Cells(linjenr, 3).Value
Sheets("TogNr").Activate
Cells(1, 11) = tog
avd = Cells(1, 12).Value
fra = Cells(1, 13).Value
til = Cells(1, 14).Value
Windows(f_gr_lag & ".xlsx").Activate
Cells(18, 16) = avd
Cells(25, 4) = "Frakt uke " & uke
Cells(27, 4) = "Strekningen " & fra & " " & til
Cells(32, 1).Activate
Cells(32, 2) = avd
Cells(32, 4) = "Containerfrakt"
Cells(32, 12) = 1
Cells(32, 16) = belop
Cells(52, 4) = mail
ActiveWorkbook.SaveAs Filename:= _
"S:\Booking\faktura bilag\ferdige grunnlag\" & f_gr_lag & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End Sub
________________________________________________________________________________________
I have marked to place where the jump occurs with ==================.
Regards
Frank