fjerne commandbutton's ved gem som copy

Hej

Jeg ville gerne hvis det kunne lade sig gøre at de 3 stk. commandbutton jeg har på mit regneark ikke kommer med når jeg gemmer det som en kopi af det.

Altså sådan at de bilver i det org. ark, men ikke på kopien når man åbner den igen.

commandbutton er lavet via kontrolelementer. Det er ligemeget om kode bag dem bliver der, bare de kan slettes.

De hedder commandbutton1_Click(), og er fortløbende nummer.

Ligger lige den prg. stumb det skal funk.med.:

Private Sub CommandButton1_Click()


Const xsti = "d:\Faktura\excelfakturaDB\"      'tilpasses
Dim nummer
Dim kunde
  On Error Resume Next
Range("A2:D55").PrintOut ' skal sættes aktiv når prg overdrages
  Range("B48") = " K O P I " ' skriver kopi i cellen og sættes aktiv ved lev.
  Range("A2:D55").PrintOut  ' sættes aktiv ved lev
  Range("B48") = ""  ' fjerner kopi igen  , sættes aktiv ved lev.
 
'-----------------------------------------------------------------------------------------------

'---------------------- gammer active sheet som copy (prøve)------------------------------------
    ActiveSheet.Copy
  Dim navn
    navn = ActiveWorkbook.Sheets(1).Cells(4, 2)
   
   
MkDir "d:\Faktura\excelfakturaDB\" & navn

 
 
  nummer = ActiveWorkbook.Sheets(1).Cells(8, 4)  'skal tilpasses
  kunde = ActiveWorkbook.Sheets(1).Cells(4, 2)
 
 

 
  ActiveWorkbook.SaveAs "d:\Faktura\excelfakturaDB\" & kunde & "\faktura_" & nummer & ".xls"
ActiveWorkbook.Application.DisplayAlerts = False
modDemo.BookCloseAllow


ThisWorkbook.Saved = True

ActiveWorkbook.Close

ThisWorkbook.Saved = True


End Sub


Håber at det kan lade sig gøre.

MVH.
Hepygula