Gem et worksheet, når der er flere regneark åbene

Det kan man sagtens, hvornår skal arket gemmes?? det skal ske automatisk, når du fortager dig en handling, f.eks. skifter til et andet regneark.

Hvad skal filen hedde, denne kunne f.eks. være navnet på fanen ??

Ved godt at det ikke er dette ikke er helt hvad du efterspørger. Denne gemmer alle ark hver for sig,når du lukker mappen.


Public Sub workbook_BeforeClose(Cancel As Boolean)

Sti = "C:\"        'ændre til den sti du gerne vil gemme i.

x = Sheets.Count

For i = 1 To x
Sheets(i).Select

Navn = ActiveSheet.Name

ActiveSheet.Copy

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Sti & Navn
Application.DisplayAlerts = True
ActiveWorkbook.Close
Next i

End Sub

lukker