First of all, use CODE tags when posting a full code.
Code:
Sub Kampanjstorlek()
'
' Kampanjstorlek Makro
' Öpnnar filen kampanjstrolek och uppdaterar och sparar.
'
' Kortkommando: Ctrl+a
'
Workbooks.Open Filename:= _
"K:\Assortment & Purchasing\AO Egenvård\8. Layout & Space\6. Butiks & Kampanjinfo\Kampanjstorlek\Kampanjstorlek.xlsx"
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
End Sub
Perhaps add DoEvents to your code after the ActiveWorkbook.RefreshAll? That might work.
Code:
Sub Kampanjstorlek()
'
' Kampanjstorlek Makro
' Öpnnar filen kampanjstrolek och uppdaterar och sparar.
'
' Kortkommando: Ctrl+a
'
Workbooks.Open Filename:= _
"K:\Assortment & Purchasing\AO Egenvård\8. Layout & Space\6. Butiks & Kampanjinfo\Kampanjstorlek\Kampanjstorlek.xlsx"
ActiveWorkbook.RefreshAll
DoEvents
ActiveWorkbook.Save
End Sub
I've just found this on another forum.
Hope this helps