• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User


  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Edit macro


New Member
please, can you help me?

Can you edit this macro for me so that the new file has this naming rule:
"always from first sheet AB2"_"always from first sheet U2"_"always from first sheet V2"_"sheet name of currently open sheet"


Sub all_selected_to_new2()
    Dim mySourceWB As Workbook
    Dim mySourceSheet As Worksheet
    Dim myNewFileName As String
    Dim FileName As String
'   First capture current workbook and worksheet
    Set mySourceWB = ActiveWorkbook
    Set mySourceSheet = ActiveSheet

'   Build new file name based
    Filename = ActiveWorkbook.Name
    If InStr(Filename, ".") > 0 Then
    Filename = Left(Filename, InStr(Filename, ".") - 1)
    End If
' probably the filename shall be prepared different way, not just after one (active) sheet name
    myNewFileName = mySourceWB.Path & "\" & Filename & "_" & mySourceSheet.Name & ".xlsx"

'   Don't just add new workbook but copy selected sheets to a new workbook (it will become active one)

'and save with name of sheet from other file (overwriting without warning if workook with such name already exists )
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=myNewFileName
    Application.DisplayAlerts = True

'as you use workbook and worksheet objects it would be elegant (or in some situations also wise) to clear them all, so:

Set mySourceSheet = Nothing
Set mySourceWB = Nothing

End Sub
Hi, attach a workbook at least and give an example of the full filename you expect for …​
Hi, sorry for delay
Thanks for your ansver. Please find attached sample files. Source file and final file



  • P1133_1207_WO00004650_M001_New_ADA_JS.xlsx
    39.8 KB · Views: 2
  • Source file.xlsx
    113.3 KB · Views: 2
According to the previous post a VBA demonstration for starters :​
Sub Demo1()
    F$ = ActiveWorkbook.Path & ActiveWorkbook.Sheets(1).["\"&AB2&"_"&U2&"_"&V2&"_"] & ActiveSheet.Name
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs F, 51
    Application.DisplayAlerts = True
End Sub
Do you like it ? So thanks to click on bottom right Like !​