Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
--Create a new workbook to combine all files Private Sub NewWb() Dim NewName As String NewName = "Client_CallMetrics_" & Format(Now(), "mmddyy") Workbooks.Add ActiveWorkbook.SaveAs FileName:=NewName & ".xlsx" End Sub
Private Sub CopySheets1() Dim wkb As Workbook Dim sWksName As String sWksName = "Sheet1" For Each wkb In Workbooks If wkb.Name <> ThisWorkbook.Name Then wkb.Worksheets(sWksName).Copy _ Before:=ThisWorkbook.Sheets(1) End If Next Set wkb = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.