OK, back again.
This is what I did.
I have this macro in PERSONAL.XLSB...
Thate the code from here.![]()
Sub Doors() ' Doors Macro Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Workbooks.Open Filename:="H:\Stuff\file-name-here.xlsx" ' ="C:\Users\wdibbins\Desktop\Daily mag checklist.xlsx" Range("B2").Value = Date ActiveWorkbook.Save On Error Resume Next With OutMail .to = "name, mine" ' .to = "name, test1" ' .to = "name, test2" .CC = "" .BCC = "" .Subject = "" .Body = "" .Attachments.Add ActiveWorkbook.FullName .Send '- if you want it automatic and not shown End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing ActiveWorkbook.Close End Sub
I then copied that to my PERSONAL.XLSB and it ended up in Module3 (Code) (Thats what it says at the top of the PERSONAL.XLSB window)
Then I went into QAT/More Commands/Macros, found Doors and added it to the ribbon
Thats it.
If I keep PERSONAL.XLSB unhidden, it works, if I hide PERSONAL.XLSB, it does not work
What am I doing wrong?
Bookmarks