.xlsm file to .xlsx

[smakatura]

I have a macro enabled document (.xlsm) that I want to save as a standard macro-free document (.xlsx). I am able to do it but it creates a popup asking me if I want to do it and lose the macros. Is there a way to avoid the popup and have it just save the document without the macros.

'***********input report date**********************
    Dim rptdate As String
    Dim filename As String
    rptdate = InputBox("enter date of report")
    filename = "Admissions Call Log Master " & rptdate & ".xlsx"
 
' ****Save Master*******************************
       If Len(Dir("C:\Users\smakatura\Documents\call report\Call Reports\Executive Call Log Master\" & rptdate, _
            vbDirectory)) = 0 Then
       MkDir "C:\Users\smakatura\Documents\call report\Call Reports\Executive Call Log Master\" & rptdate
    End If
    ActiveWorkbook.SaveAs filename:= _
        "C:\Users\smakatura\Documents\call report\Call Reports\Executive Call Log Master\" & rptdate & "\" & filename _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

 

[stilesbn]

Try adding

Application.DisplayAlerts = False

and then set it back to "True" at the end.