Sub enrreg()
Application.FileDialog(msoFileDialogSaveAs).Show
Application.FileDialog(msoFileDialogSaveAs).AllowMultiSelect = False
ActiveWorkbook.SaveAs Filename:= _
Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1), FileFormat _
:=xlCSV, CreateBackup:=False
Application.WindowState = xlMinimized
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
End Sub