jag har fått till det nästan som jag vill, hur lyder koden för att spara den nya filen utan makro, länkar mm.
allrså den skall bara sparas med format och värden.
Filen är en mall för fakrutering
Filen har på blad 1 min commandoknapp, blad 2 en kopia av blad 1 utan kombinationslister för val av kunder och kommandoknapp
jag har gjort kod så den bara sparar ned blad 2, själva fakturan, men jag vill inte ha med makro/länkar när den öppnas....
Private Sub CommandButton1_Click()
FakturaNr = Range("E7")
Range("E7") = FakturaNr + 1
Dim Path As String
Dim FileName1 As String
Dim FileName2 As String
Path = "C:\Users\Ulla\Desktop\Fakturor\"
FileName1 = Range("A11")
FileName2 = Range("E7")
Dim wb As Workbook
Worksheets("Blad2").Copy
Set wb = ActiveWorkbook
wb.SaveCopyAs Filename:=Path & FileName2 & "-" & FileName1 & ".xls"
wb.Close SaveChanges:=False
End Sub