VBA to name workbook as worksheet

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