Solution to Error: Create a copy of open workbook and prompt user to name the new workbook

Create a copy of open workbook and prompt user to name the new workbook

Greetings

I have workbook with VBA to import data from Access DB.
I want to be able after importing Data  to save a copy of that workbook as a macro free workbook and name the new work book.
I want to have a command button to that

Ronald

Anwsers to the Problem Create a copy of open workbook and prompt user to name the new workbook

Download Error Fixer for Free Now

The code actually only takes a few lines.  Here is a Sub you could attach to a shape, or copy the working part of the code into the command button_click routine.
Sub SaveWithoutMacros()
  Dim saveResult As Variant
  'this copies the 4 sheets into a new
  'workbook, and that workbook becomes
  'the active workbook.
  Sheets(Array("Monthly_Planned", "Monthly_Actual", "Cumulative_Actual", _
   "Annual_Plan")).Copy
  'this brings up the File --> Save As dialog
  'so that you can choose a folder and provide a
  'filename for the file.
  saveResult = Application.Dialogs(xlDialogSaveAs).Show
  'the new workbook is still open and active (on top)
  'if you wish to close it, then:
  ActiveWorkbook.Close
End Sub

Check Windows System Requirements

This error can be due to some configuration requirements for you system. If your PC hardware is not up to par, then make sure you upgrade where necessary before continuing:

Microsoft Windows Requirements :

• 1 gigahertz (GHz) or faster 32-bit (x86) or 64-bit (x64) processor
• 16 GB available hard disk space (32-bit) or 20 GB (64-bit)

Recommended Method to Repair the Problem: Create a copy of open workbook and prompt user to name the new workbook:

How to Fix Create a copy of open workbook and prompt user to name the new workbook with SmartPCFixer?

1. Click the button to download Error Fixer . Install it on your computer.  Open it, and it will scan your computer. The junk files will be shown in the scan result.

2. After the scan is done, you can see the errors and problems need to be repaired. Click Fix All.

3. The Fixing part is finished, the speed of your computer will be much higher than before and the errors have been fixed.

Related: How Can You Update & Download NVidia 6100, 6800 GS/XT Display Driver v.260.89 WHQL,Where to Download NVidia GeForce 8800 GT WHQL-certified driver v.196.21,How to Update & Download NVidia GeForce Go 7400 Display Driver v.260.19.12,[Solved] Download NVidia GeForce GTX 460M Driver v.331.82,Download NVidia Quadro Plex Model IV VGA Driver v.304.43 Certified,Way to Download RealTek RTL8100C(L) Driver v.5.01,Way to Download RealTek RTL8100E Drivers v.694,Way to Update & Download RealTek RTL8101L Auto Installation Program v.6.110 driver,Method to Update & Download RealTek RTL8111G PXE and RPL ROM code v.2.58 driver,How to Update & Download RealTek RTL8411B(N) Driver v.10.003,Best Way to Update & Download ASUS A53SV nVidia Graphics Driver v.8.17.12.6686,Method to Herunterladen ASUS K75VJ Intel Rapid Storage Technology Treiber v.11.6.0.1030,How Can You Update & Download ASUS CG8580 Intel Chipset Driver v.9.3.0.1019,Method to Update & Download ASUS K41VD Intel INF Update Driver v.9.1.1.1015,Way to Update & Download ASUS Pro70T NB Probe v.3.0.0026 driver
Read More: How to Resolve - Connection property Not changing on linked table?,[Solution] consantly getting message "not responding" how can I correct this? My computer freezes.,How to Fix Problem - Conversion of date format using a formula?,Troubleshoot:Converting an XLR file for inclusion in Word 2007,Control Window not appear for Bluetooth Device [Solved],Closing Internet Explorer causes error,Compare 2 Tables and Calculate the PROFIT Faster,Computer goes to Windows Boot Manager after Start,Connect to one of my network computer remotely when don't allow exception box Marked,computer locking up randomly