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 Main() On Error GoTo EH MYDOC_DIR = Environ("userprofile") & "\Desktop" Dim oWb As Workbook oWb = Application.Workbooks.Open(MYDOC_DIR & "\" & "FILE FROM ITS.xlsm") '** Windows("FILE FROM ITS.xlsm").Activate oWb.Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).Cells.Paste Exit Sub EH: MsgBox Err.Description End Sub
|Problem with Excel 2016 changing cell format type on its own||4||22|
|Response times in Excel||18||39|
|Excel export Active Sheet in one workbook to a new sheet in another||8||23|
|simple excel formula||4||13|