Save As To Prompt For Location But Use Filename From Cell





.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box;
}







1















I got this code from a forum and it works but I need to tweak it to show me the "save as" box but I with the name already populated with my variable FName.



Can someone help me with this?



Sub Save_New()
Dim FName As String
Dim FPath As String
'FPath = "C:"
FName = Sheets("Sheet1").Range("A1").Text
ThisWorkbook.SaveAs Filename:=FName
End Sub









share|improve this question































    1















    I got this code from a forum and it works but I need to tweak it to show me the "save as" box but I with the name already populated with my variable FName.



    Can someone help me with this?



    Sub Save_New()
    Dim FName As String
    Dim FPath As String
    'FPath = "C:"
    FName = Sheets("Sheet1").Range("A1").Text
    ThisWorkbook.SaveAs Filename:=FName
    End Sub









    share|improve this question



























      1












      1








      1








      I got this code from a forum and it works but I need to tweak it to show me the "save as" box but I with the name already populated with my variable FName.



      Can someone help me with this?



      Sub Save_New()
      Dim FName As String
      Dim FPath As String
      'FPath = "C:"
      FName = Sheets("Sheet1").Range("A1").Text
      ThisWorkbook.SaveAs Filename:=FName
      End Sub









      share|improve this question
















      I got this code from a forum and it works but I need to tweak it to show me the "save as" box but I with the name already populated with my variable FName.



      Can someone help me with this?



      Sub Save_New()
      Dim FName As String
      Dim FPath As String
      'FPath = "C:"
      FName = Sheets("Sheet1").Range("A1").Text
      ThisWorkbook.SaveAs Filename:=FName
      End Sub






      excel vba excel-vba save-as






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 16 '18 at 13:27









      Pᴇʜ

      25.2k63052




      25.2k63052










      asked Nov 16 '18 at 13:21









      MECMEC

      717




      717
























          1 Answer
          1






          active

          oldest

          votes


















          1














          You can use the Application.GetSaveAsFilename method for that …



          Option Explicit

          Sub Save_New()
          Dim FName As String
          FName = Sheets("Sheet1").Range("A1").Text

          Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
          DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)

          If Not DialogResult = False Then
          ThisWorkbook.SaveAs Filename:=DialogResult
          Else
          'user clicked cancel
          End If
          End Sub





          share|improve this answer


























          • Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code

            – MEC
            Nov 16 '18 at 14:11













          • @MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.

            – Pᴇʜ
            Nov 16 '18 at 14:37













          • OMG, I didn't notice it either, works like a champ, thanks

            – MEC
            Nov 16 '18 at 14:56












          Your Answer






          StackExchange.ifUsing("editor", function () {
          StackExchange.using("externalEditor", function () {
          StackExchange.using("snippets", function () {
          StackExchange.snippets.init();
          });
          });
          }, "code-snippets");

          StackExchange.ready(function() {
          var channelOptions = {
          tags: "".split(" "),
          id: "1"
          };
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function() {
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled) {
          StackExchange.using("snippets", function() {
          createEditor();
          });
          }
          else {
          createEditor();
          }
          });

          function createEditor() {
          StackExchange.prepareEditor({
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: true,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: 10,
          bindNavPrevention: true,
          postfix: "",
          imageUploader: {
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          },
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          });


          }
          });














          draft saved

          draft discarded


















          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53338747%2fsave-as-to-prompt-for-location-but-use-filename-from-cell%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          1














          You can use the Application.GetSaveAsFilename method for that …



          Option Explicit

          Sub Save_New()
          Dim FName As String
          FName = Sheets("Sheet1").Range("A1").Text

          Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
          DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)

          If Not DialogResult = False Then
          ThisWorkbook.SaveAs Filename:=DialogResult
          Else
          'user clicked cancel
          End If
          End Sub





          share|improve this answer


























          • Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code

            – MEC
            Nov 16 '18 at 14:11













          • @MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.

            – Pᴇʜ
            Nov 16 '18 at 14:37













          • OMG, I didn't notice it either, works like a champ, thanks

            – MEC
            Nov 16 '18 at 14:56
















          1














          You can use the Application.GetSaveAsFilename method for that …



          Option Explicit

          Sub Save_New()
          Dim FName As String
          FName = Sheets("Sheet1").Range("A1").Text

          Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
          DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)

          If Not DialogResult = False Then
          ThisWorkbook.SaveAs Filename:=DialogResult
          Else
          'user clicked cancel
          End If
          End Sub





          share|improve this answer


























          • Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code

            – MEC
            Nov 16 '18 at 14:11













          • @MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.

            – Pᴇʜ
            Nov 16 '18 at 14:37













          • OMG, I didn't notice it either, works like a champ, thanks

            – MEC
            Nov 16 '18 at 14:56














          1












          1








          1







          You can use the Application.GetSaveAsFilename method for that …



          Option Explicit

          Sub Save_New()
          Dim FName As String
          FName = Sheets("Sheet1").Range("A1").Text

          Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
          DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)

          If Not DialogResult = False Then
          ThisWorkbook.SaveAs Filename:=DialogResult
          Else
          'user clicked cancel
          End If
          End Sub





          share|improve this answer















          You can use the Application.GetSaveAsFilename method for that …



          Option Explicit

          Sub Save_New()
          Dim FName As String
          FName = Sheets("Sheet1").Range("A1").Text

          Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
          DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)

          If Not DialogResult = False Then
          ThisWorkbook.SaveAs Filename:=DialogResult
          Else
          'user clicked cancel
          End If
          End Sub






          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited Nov 16 '18 at 14:37

























          answered Nov 16 '18 at 13:32









          PᴇʜPᴇʜ

          25.2k63052




          25.2k63052













          • Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code

            – MEC
            Nov 16 '18 at 14:11













          • @MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.

            – Pᴇʜ
            Nov 16 '18 at 14:37













          • OMG, I didn't notice it either, works like a champ, thanks

            – MEC
            Nov 16 '18 at 14:56



















          • Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code

            – MEC
            Nov 16 '18 at 14:11













          • @MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.

            – Pᴇʜ
            Nov 16 '18 at 14:37













          • OMG, I didn't notice it either, works like a champ, thanks

            – MEC
            Nov 16 '18 at 14:56

















          Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code

          – MEC
          Nov 16 '18 at 14:11







          Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code

          – MEC
          Nov 16 '18 at 14:11















          @MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.

          – Pᴇʜ
          Nov 16 '18 at 14:37







          @MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.

          – Pᴇʜ
          Nov 16 '18 at 14:37















          OMG, I didn't notice it either, works like a champ, thanks

          – MEC
          Nov 16 '18 at 14:56





          OMG, I didn't notice it either, works like a champ, thanks

          – MEC
          Nov 16 '18 at 14:56




















          draft saved

          draft discarded




















































          Thanks for contributing an answer to Stack Overflow!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53338747%2fsave-as-to-prompt-for-location-but-use-filename-from-cell%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Florida Star v. B. J. F.

          Danny Elfman

          Retrieve a Users Dashboard in Tumblr with R and TumblR. Oauth Issues