Sub CopyPaste2() Dim Wb As Workbook ' current workbook Dim Report As Workbook ' referenced workbook Dim Ffn As String ' full file name of Report Dim Fname As String ' retrieved file name Ffn = "H:\Futures\Macros\F&O Report\F&O Report Instructions Macro 1-22-2014.xlsm" Set Report = GetWorkbook(Ffn) If Report Is Nothing Then MsgBox "Couldn't find the Report", vbCritical, _ "Missing workbook" Exit Sub Else Fname = Report.Worksheets(1).Range("A11").Text & ".xlsx" 'MsgBox Fname End If If Sheets(Fname) = True Then MsgBox "Good, file opened." Else MsgBox "Today's report is currently not opened." End If 'If Len(Fn) Then End Sub
|After updating data my Excel graphs are showing too many dates||8||32|
|Script Extension require update AD computer location base on sites subnet||5||34|
|Sum iF based on a null cell||11||29|
|Excel Save As Status Box will not go away||6||19|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!