Sub Copy_Data() Worksheets(ActiveSheet.Index + 2).Select Range("A2").Copy Workbooks("Current_Month_Data.xlsx").Sheets("Sheet1").Activate End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)