Private Sub Workbook_Open()
Dim wb As Workbook
Dim xlFile As String
Dim wbname As String
xlFile = "http://sharepoint/sites/MYD_18434/Report%20Library/Bankruptcy/BK%20Timely%20Setup%20Removal%20Daily%20Report/Bk%20Timely%20Setups%20Removals%20Dashboard.xls"
'Open Excel File.
Set wb = Workbooks.Open(xlFile)
wbname = wb.Name
wb.Close True
MsgBox wbname & " Workbook saved"
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
From novice to tech pro — start learning today.
--
Graham Mandeno [Access MVP]
Open in new window