Makro der gemmer workbook som delt mappe

Sub Makro1()
    Windows("Mappe2").Activate
    With ActiveWorkbook
        .KeepChangeHistory = True
        .ChangeHistoryDuration = 30
    End With
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Excel\Mappe2.xls", AccessMode _
        :=xlShared
End Sub

Det virker - send lige et svar.

et svar ;-))

lukketid

marker mit navn og tryk accepter