VBA save sheet to folder

[ceytl]

Hello,

I have a VBA script that saves my active workbook into a folder called S1, but I want to change it to only to save a worksheet named Order1 to the same S1 folder.

I also don't want the original workbook to close, only the one I just saved.

Any help would be appreciated.

Sub SaveMe()

Dim filename101 As String
Dim path101 As String
Dim fso As Object

Application.DisplayAlerts = False

Set fso = CreateObject("Scripting.FileSystemObject")


path101 = Environ("UserProfile") & "\Orders\S1\"

If Not fso.FolderExists(path101) Then
MsgBox "The folder " & path101 & " doesn't exist.", vbExclamation
Exit Sub
End If

filename101 = "Order1 " & Range("B5").Value & ".xlsx"

ActiveWorkbook.SaveAs path101 & filename101, xlOpenXMLWorkbook
Application.DisplayAlerts = True

End Sub

 

[AC PORTA VIA]

is this what you are trying to do

Sub SaveActiveSheet_as_Woorkbook1()
Dim wb As Workbook

    ActiveSheet.Copy
    Set wb = ActiveWorkbook

    wb.SaveAs Environ("UserProfile") & "\Orders\S1\" & ActiveSheet.Name, FileFormat:=xlWorkbookNormal
    wb.Close


End Sub

 

[ceytl]

is this what you are trying to do

Sub SaveActiveSheet_as_Woorkbook1()
Dim wb As Workbook

    ActiveSheet.Copy
    Set wb = ActiveWorkbook

    wb.SaveAs Environ("UserProfile") & "\Orders\S1\" & ActiveSheet.Name, FileFormat:=xlWorkbookNormal
    wb.Close


End Sub

Thanks!

I modified it to save the worksheet I wanted, and change the format to .xlsx

Sub SaveActiveSheet_as_Woorkbook2()

Dim wb As Workbook

Worksheets("S2").Copy
Set wb = ActiveWorkbook
wb.SaveAs Environ("UserProfile") & "\Desktop\2022 spring booking orders\S2\" & "Order1 " & Range("B5").Value, FileFormat:=xlOpenXMLWorkbook
wb.Close

End Sub