Snasui Excel Forum

Code: Select all

Sub SaveAsName()
    Dim FName           As String
    Dim FPath           As String
    FPath = "C:\Users\Win_10\Desktop\test"
    FName = Sheets("save").Range("a2").Text
    ThisWorkbook.SaveAs FileName:=FPath & "\" & FName + ".xlsm"
End Sub

Code: Select all

'Other code...
    Dim sh              As Worksheet
    FPath = "C:\Users\Win_10\Desktop\test"
    FName = Sheets("save").Range("a2").Text
    For Each sh In Worksheets
        sh.Copy
        ActiveWorkbook.SaveAs Filename:=FPath & "\" & FName & sh.Name & ".xlsm"
    Next sh

Code: Select all

Sub SaveAsName()
Sheets("save").Select
Sheets("save").Copy
Sheets("save").Select
Sheets("save").Activate
Sheets("save").UsedRange.Copy
Dim FName           As String
Dim FPath           As String
 FPath = "C:\Users\Win_10\Desktop\test"
End Sub