Gem som kommandoen

Hm? Du gemmer da hele projektmappen, og ikke kun det pågældende ark, hvadenten du gemmer, eller gemmer som. Eller har jeg misforstået dig?

Kan du bruge muligheden:

<Rediger> - <Flyt eller kopier ark>

og herefter genne den nye projektmappe.

Har selv fundet en løsning

Hvad var problemet/løsningen?

Jeg laver en knap i mit regneark, hvor jeg tilføje følgende kode:

Private Sub CommandButton1_Click()
ActiveSheet.Copy

Dim txtCnt As Integer
    Dim i As Integer
    iCnt = Application.Sheets.Count
    For i = 1 To iCnt
        Application.Sheets(i).Name = "Ark1"
    Next
   
        dlgAnswer = Application.Dialogs(xlDialogSaveAs).Show("C:\Documents and Settings\Inger\Skrivebord\Team Fredericia\Rotationsplaner")

   
    Workbooks("Master m farver.xls").Close SaveChanges:=False
End Sub