Macro needed to export (Copy/Paste) data into new excel files

[viktor4e]

Hi everyone,

I have an excel file with 8 worksheets. I would like to be able to select any cells on any of these worksheets and export (paste as values) only that data into a new excel file on my desktop. I would like to be able to repeat this procedure as many times as I want, and the files should be saved under different names (or be numbered). In addition, it would be useful if a message box appears to ask me to input a name for the file to be saved anytime the macro is run.

Thanks so much for helping.

 

[onlyadrafter]

Hello,

something on the lines of

Sub SAVE_FILE()
    MY_FILE = InputBox("Please enter filename", Filename)
    Selection.Copy
    Workbooks.Add
    Range("A1").PasteSpecial (xlPasteValues)
    ActiveWorkbook.SaveAs "C:\" & MY_FILE
    ActiveWorkbook.Close (1)
End Sub