Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub Append() Dim strFileSelected As String Dim objOfficeDialog As Object Dim wbDestination As Workbook Dim wbSource As Workbook Dim sh As Worksheet Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False Set objOfficeDialog = Application.FileDialog(msoFileDialogFilePicker) Set wbDestination = ActiveWorkbook With objOfficeDialog .Title = "Select the Project Cost Allocation file" .AllowMultiSelect = False If .Show <> -1 Then Exit Sub End If strFileSelected = .SelectedItems(1) End With Dim strSuffix As String If strFileSelected <> "" Then strSuffix = InputBox("Please enter text to append to tab names") Set wbSource = Workbooks.Open(strFileSelected) For Each sh In wbSource.Sheets sh.Copy After:=wbDestination.Worksheets(wbDestination.Worksheets.Count) wbDestination.Worksheets(wbDestination.Worksheets.Count).Name = sh.Name & " " & strSuffix Next sh wbSource.Close False End If Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
|Converting ounces to grams - simple formula||8||40|
|Add Checkboxes that will return emails addresses in the BCC field into Outlook||3||48|
|How do I include Total in the Data Table but hide it in the graph||4||13|
|is there a way to force user enable macro for the template i send to them||2||15|