VBA code that you can use to copy the active worksheet into a new workbook in Excel.
VBA Code:
Sub CopyActiveWorksheetToNewWorkbook()
Dim newWorkbook As Workbook
Dim activeWorksheet As Worksheet
' Set the active worksheet
Set activeWorksheet = ActiveSheet
' Create a new workbook
Set newWorkbook = Workbooks.Add
' Copy the active worksheet to the new workbook
activeWorksheet.Copy Before:=newWorkbook.Sheets(1)
' Save the new workbook with a desired name and location
newWorkbook.SaveAs "C:\Path\To\Save\NewWorkbook.xlsx" ' Change the path and filename as desired
' Close the new workbook
newWorkbook.Close SaveChanges:=False
' Inform the user that the worksheet has been copied to a new workbook
MsgBox "The active worksheet has been copied to a new workbook!"
End Sub
Join Our Telegram Group
Join Our WhatsApp Group
