Code:
Private Sub CommandButton1_Click()
Dim path As String
Dim filename1 As String
path = "bestandsnaam"
filename1 = Range("a1").Text
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=path & filename1 & ".xlsm", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Quit
End Sub
in deze code zit een probleem het slaat niet op met macro`s, het zit in deze regel daar slaat hij vast
ActiveWorkbook.SaveAs Filename:=path & filename1 & ".xlsm", FileFormat:=xlOpenXMLWorkbook
wat doe ik verkeerd