--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
|I need to access elements from an existing child window to extrat info!||19||42|
|Help with Word VBA class module||4||35|
|VBA pass value between two fields different tables||10||37|
|ensure than when a form opens it always starts with a NEW record||2||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!