Sub 自分のファイルをマクロVBAを削除して保存する()
    
    'マクロなし確認メッセージを抑制
    Application.DisplayAlerts = False
    
    '自分のファイル名を取得（test.xlsm）
    VBA有ファイル名 = ThisWorkbook.Name
    
    '自分のファイル名をVBAなしに変換（test.xlsm → test.xlsx）
    VBAなしファイル名 = Replace(VBA有ファイル名, ".xlsm", ".xlsx")
    
    '保存
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & VBAなしファイル名, _
                                        FileFormat:=xlOpenXMLWorkbook
    
    'マクロなし確認メッセージを抑制を解除
    Application.DisplayAlerts = True
    
End Sub