Naming the workbook as the Tab name

[VBA learner ITG]

Thank you for reading my post.

I am new to VBA and I was wondering if you could advise me or guide me in the right direction.

I have the below VBA code to copy a worksheet to a new workbook and i was wondering is there a way to add to the code to automatically rename the workbook as the worksheet name when this code is run?


Sub Copy_Sheet_New_Workbook()
ActiveSheet.Copy
EndSub

 

[rlv01]

Sub Copy_Sheet_New_Workbook()
    Dim WS As Worksheet
    
    Set WS = ActiveSheet
    Application.Workbooks.Add
    WS.Copy ActiveSheet
    ActiveWorkbook.SaveAs FileName:=CurDir & "\" & WS.Name
End Sub