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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Add a condition to an Excel formula to include when date in one cell equals date in another cell||15||25|
|Formula returning #N/A||9||31|
|I NEED KEEP THE CONDITIONAL FORMATTING||24||26|
|Look for an number in a column||42||20|