Jag har följande makro i en arbetsbok.
Allt fungerar utmärkt utom raden som sparar arbetsboken innan den stängs.
Vad har jag missat??
Jag är långt ifrån expert så jag är tacksam för all hjälp jag kan få.
Makrot ser så här:
Sub Makro1()
'
' Utskrift_radering Makro
'
Sheets("Följesedel").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Registrering_utskrift").Select
Dim filnamn As String
filnamn = Range("I2").Value
ActiveWorkbook.SaveAs Filename:="C:\Ekonomi\" & filnamn & ".xlsm"
Range("I31").Select
Selection.ClearContents
Range("A33:H34").Select
Selection.ClearContents
Range("C3:F3").Select
ActiveWorkbook.Save
ActiveWorkbook.Close savechanges:=True
End Sub
↧