Naming exported file

Hello, i´ve got this code to save worksheet2 as new excel file. Is it possible to automatically name that exported file from value in choosen cell?

For example if A1="Henry´s list" then file name will be named "Henry´s list". Thanks for answer.

Sub testRenameSheets()
Dim stFileName As String
stFileName = Selection.Value
Worksheets("Sheet2").Copy 'Creates a new workbook with the sheet.
With ActiveSheet.UsedRange
.Copy
.PasteSpecial xlValues
.PasteSpecial xlFormats
End With
Application.CutCopyMode = False
Range("A1").Select
stFileLocation = Application.GetSaveAsFilename(InitialFileName:=stFileName)
ActiveWorkbook.SaveAs Filename:=stFileLocation & "xlsx"
ActiveWorkbook.Close Savechanges:=False
End Sub

3. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the [#] button at the top of the post window (if you are editing an existing post, press Go Advanced to see the [#] button). The result will appear like this in the post window:

 your code here ...
 and here ...
 and here

... and appear like this when posted:



copy to clipboard
your code here ...
and here ...
and here
You can also type the code tags in manually if you prefer. For more information about these and other tags, click here.

Yes, thank you.

Sub testSaveSheets()
Dim mySaveAsName As String

    ThisWorkbook.Worksheets("Sheet2").Copy

    mySaveAsName = Application.GetSaveAsFilename(ThisWorkbook.Worksheets("Sheet2").Cells(1, 1).Value)
    ActiveWorkbook.SaveAs Filename:=mySaveAsName & ".xlsx", FileFormat:=xlOpenXMLWorkbook
End Sub

Just pass the cell value into the 'GetSaveAsFilename' call.