Need support for your remote team? Check out our new promo!*
*Limited-time offer applies to the first charge of a new subscription only.
10 licenses for the price of 3
40 licenses for the price of 10
Dim wbk as Workbook
Application.ScreenUpdating = False
Dim fName As String
Dim fPath As String: fPath = ThisWorkbook.Path
.InitialFileName = fPath
.AllowMultiSelect = False
.Filters.Add "All Files", "*.*" 'everything
.Filters.Add "Excel Files", "*.xlsx", 1 'default
If .SelectedItems.Count > 0 Then
fName = .SelectedItems(1)
Set wbk = Application.Workbooks.Open (fName)
Application.Run "'" & wbk.name & "'!Makeitso"
Application.ScreenUpdating = True
Open in new window
Private Sub Workbook_Open()
Application.Run "'PERSONAL.XLSX'!Makeitso" ' where Makeitso is the name of the macro in your personal workbook you want to run.
Public WithEvents App As Application
IT issues often require a personalized solution. With Ask the Experts™, submit your questions to our certified professionals and receive unlimited, customized solutions that work for you.
Take hold of your future.