Learn how to provision Office 365 tenants, synchronize your on-premise Active Directory, and implement Single Sign-On.
Dim fName As String, Report As Workbook Set Report = ActiveWorkbook fName = Report.Worksheets(1).Range("A11").Text & ".xlsx" If IsOpen(fName) Then MsgBox "Good, file opened." .Sheets("Input").Range("B8:O11").Copy .Sheets("Avg Daily Vol").Range("G5").PasteSpecial xlValues Application.CutCopyMode = False MsgBox "Values pasted successfully!" Else MsgBox "Today's report is currently not opened." End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|how can i return the name of color from the cell background?||8||34|
|Get average for unknown number of cells per degree..||3||37|
|Need macro to assign two digit numbers to selected cells in Excel 2016||3||33|
|Transfer Worksheet Data to Userform & Calculate based on Sum Range||28||41|
Join the community of 500,000 technology professionals and ask your questions.