Hej

Någon som vet hur man skriver koden för att det inte skall kopiera VB formatering dvs. buttons, ,checkboxar med innehållande kod till nya filen...


Sub CopyWorkbook()

Dim sCopyName As String

sCopyName = Sheets("nyfil.xls"

ActiveWindow.SelectedSheets.Copy
ActiveWorkbook.SaveAs filename:=sCopyName, _
FileFormat:=xlNormal

End Sub

Du får loopa igenom alla kontroller och ta bort dem.

hmm....eeh
då tar det ju bort knapparna från ursprungsdokumentet...

nedan tar bort kontrollerna i den nya filen... gäller bara att göra dfet på rätt ställe eftersom den nya arbetsboken blir active i och med raden:

ActiveWindow.SelectedSheets.Copy 

Sub CopyWorkbook()
     
    Dim sCopyName As String

    sCopyName = "qwerty"

    ActiveWindow.SelectedSheets.Copy
    
    For Each Sheet In ActiveWorkbook.Sheets
        For Each kontrol In Sheet.Shapes
            kontrol.Delete
        Next
    Next Sheet
     
    ActiveWorkbook.SaveAs Filename:=sCopyName, _
    FileFormat:=xlNormal
   
End Sub

finemang ! tack doktorn..