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
|After updating data my Excel graphs are showing too many dates||8||33|
|FormulaArray VBA Issue||6||18|
|Excel copy picture into Outlook email||7||47|
|Google Sheets Youth Baseball Round Robin Scheduling||5||18|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
24 Experts available now in Live!