Learn how Concerto can help you.
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
Join the community of 500,000 technology professionals and ask your questions.