Naming exported file

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.