Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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
|Excel VBA - Collection of checkboxes and labels on UserForm||8||26|
|Excel VBA - format a Shape same as a Cell||7||22|
|How to hault or freeze parent form when a 2d form is open in vb6||3||11|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
8 Experts available now in Live!