Exporting sheet to another excel file

[jj4jj]

Hello

I am searching for a macro to export whole "sheet2" to an another excel file (only data, no need to copy the functions), it should automatically name the new file ( from data in certain cell) and it should have an option to select folder,where the user wants to save the file.

Many thanks for every answer.

[nigelbloomy]

Does this get you close?

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

[jj4jj]

It is working brilliant...many many many thanks!!!!!

[nigelbloomy]

You are welcome. Thanks for the rep too.