Code to save file in xlsm format
I need to amend the code below so that the file saves in xlsm format.
Can someone please advise how this can be achieved?
Thanks
Paul
Set WB = ThisWorkbook
Set SH = WB.Sheets("AET Sales") '<<==== CHANGE
Set Rng2 = SH.Range("B1") '<<==== CHANGE
If Not IsEmpty(Rng2.Value) Then
aStr = Rng2.Value
FName = aStr
ThisWorkbook.SaveAs Filename:=FName, _
FileFormat:=xlWorkbookNormal
Else
'Your code to handle misssing data, e.g.:
MsgBox Prompt:="Missing Data", _
Buttons:=vbCritical, _
Title:="Problem"
End If
Solutions to the Problem Code to save file in xlsm format
Download Error Fixer for Free Now
No problem, just change
FileFormat:=xlWorkbookNormal
to:
FileFormat:= xlOpenXMLWorkbookMacroEnabled
Windows Error Reporting - To Fix Code to save file in xlsm format
- Go to Start button.
- Open Control Panel.
- Go to Windows Error Reporting.
- Click on System and Maintenance, then click Problem Reports and Solutions.
- Next, click Change Settings located on the left side panel of the Problem Reports and Solutions window.
- Select an option to configure how you want Windows to look for a solution to your problems. You may allow Windows to do it automatically or ask you every time to check if problem occurs.
- Next, click the Advanced settings link.
- Select Off to turn off Error Reporting.
Recommended Method to Repair the Problem: Code to save file in xlsm format:
How to Fix Code to save file in xlsm format with SmartPCFixer?
1. Click the button to download Error Fixer . Install it on your system. 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 which need to be fixed.
3. The Fixing part is done, the speed of your computer will be much higher than before and the errors have been removed.
Related: Sticky Notes Crash Not Solved by SFC Vista does not show External Hard Drive connected through USB USB 2 0 TO IDE system is in full meltdown and I m not far behind System freezes or stops working unexpectedly Cannot open or close program including Task Manager the filtering on my 2007 excel does not work properly the filter count is incorrect often and the pull down filter box does not show all possible values in the given row Task Manager not responding to command to come up on screen Transcend Information 160GB StoreJet External Hard Drive WINDOWS 7 COULDNOT OPEN Version Of This File Is Not Compatible With The Version Of Windows You re Running Turned off Paging Files and Turned on Ready boost Not enough memory What does it mean when I click on something and nothing happens like copy and paste VerifyError Error 1014 Class Plugin could not be found when trying to play a swf file on Media Player Lite v03 3 0 4236 Unable to install Skype error SkypeSetup exe is not a vaild Win32 application Vista Cascade of problems ending in Safe Mode Cannot make changes necessary to get out of Safe Mode the web page could not be saved to the selected location When closing a Word Document This file is in use by another application or user Toshiba C660D vs Blue screen DRIVER IRQL NOT LESS OR EQUAL,My internet browser home page opens my e mail inbox How can I have it not log me in automatically so that others can sign in itunes downloads but will not install MY COMPUTER WON T BOOT UP NOT EVEN WHEN TRYING TO PUT IT IN SAFE MODE JUST GOES TO A BLACK SCREEN PLEASE HELP ME msn butterfly software not compatible my wireless router will not communicate with my computor My E Mails are not sending logitech gamepad UF13A not detected while trying to play games My ps3mediaserver program will not open up after I installed it any advice Microsoft Update Error Error message The website has encountered a problem and cannot display the page my wifi stopped working suddenly it is not showing available networks however other iphone is able to connect to router Please help Non commercial use notification for Office 2007 Professional Plus Network Connectivity not available at login Mail merge labels in 2010 not lining up with labels when printing no sound missing graphics Cannot play games on Facebook or anywhere else My office documents have got corrupted I can not utilize all the tools What should I do,1053 printer spooler error in Windows 7 A problem caused RealPlay exe to stop interacting with Windows Cannot download iTunes on Windows Vista Home Premium Blue screen stop errors after installing Windows 7 on a desktop computer Can I reinstall Microsoft Virtual WiFi Miniport Adapter on Windows 7 x64 Home Premium Brand new Gateway laptop with Windows 7 not charging when plugged in Can only run Firefox Internet Explorer and Chrome won t connect Windows Firewall issue Can I run my Microsoft Works Data base Version 8 5 in Windows 7 Home Premium or any Windows 7 13 Windows 7 updates repeatedly failing receiving error message 800B0100 and 8007065E Complete System Restore After Upgrading From Windows Vista to Windows 7 32 bit Can we create Windows 8 1 installation media from a computer running Windows XP Dell Latitude laptop running Windows 7 freezes after booting up BSOD on Windows 7 Professional x64 Display driver has stopped responding and has recovered Display driver NVIDIA compatible Windows Vista Kernel Mode Driver Version 179 67 stopped responding and has successfully recovered Crashing after upgrading to Windows 8 1 from 8 Display port DP and HDMI sync issues and problem with display profiles in Windows 7
Read More: AMD 7670m not working "Catalyst Control Centre: Host application has stopped working" [Anwsered],How to really disable field updates before printing in Word 2007 [Solved],Streets & Trips won't run [Solved],How to Resolve - windows 8 tiles wont move?,Fast Solution to Error: I have an issue with the special characters while typing in Japanese.,Acer laptop running Windows 7 shows "2.93 GB useable" but has 4GB installed,Downgrade from ie 10 on Windows 7 64 bit leaves no internet explorer,dns server search order failed 4.2.2.2 how do fix preblom?,Unable to install an application in windows 7 which was working on xp.,Page number format change
No comments:
Post a Comment