Hide UserForm on copy

[SharonCas]

Hello,

I currently have a UserForm showing when opening a workbook. A copy of this workbook is sent to Outlook with a Macro. The problem I am having is that the UserForm is showing when the copy is made thus requiring the user to close the form before the email is displayed. I don't know where to put the Hide form or me.Unload in the Send to outlook Macro. Any assistance would be greatly appreciated.

Sub MailWorkbookOutlook()


Application.ScreenUpdating = False


If ActiveSheet.Range("N26,W26") = "" Then
MsgBox ("Must enter RENTAL EQUIP & TRAFFIC CONTROL before sending")
Exit Sub
Else
End If




Dim rng As Range
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim FileExtStr As String
Dim OutApp As Object
Dim OutMail As Object
Dim DatePicked As String
Dim PcName As String
Dim ws As Worksheet
Dim strbody As String

DatePicked = ActiveSheet.Range("E23").Value
PcName = ActiveSheet.Range("T13").Value


Set wb1 = ActiveWorkbook



Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


On Error Resume Next
With OutMail
.To = "Dailies@bluecomm.com"
.CC = ""
.BCC = ""
.Subject = DatePicked & " - " & PcName
.Body = "CREW MEMBERS ON SITE:" & vbCrLf & "EQUIPMENT ON SITE:" & vbCrLf & vbCrLf & "DESCRIPTION OF TASKS PERFORMED:"
.Attachments.Add wb2.FullName
' In place of the .Send, you can use ".Display" to display the mail.
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

Application.ScreenUpdating = True
End Sub

 

[DataBlake]

Hello,

I currently have a UserForm showing when opening a workbook.

do you want this userform in the emailed copy or just the sheets in the workbook?
you could have a macro that loops through and copies sheets to a new workbook w/o the userform and then sends that new workbook.
or create a save file with a different name and have another if statement that says if its the copies' name do not show userform, etc.
those are a couple workarounds i could think of.

 

[SharonCas]

I don't want the userform in the emailed copy.

 

[DataBlake]

I don't have the time today to integrate this into your code but copying the workbook to a new workbook with a predictable name:

Sub createWB()
Dim wb1 As Workbook
Set wb1 = ThisWorkbook
Dim wb2 As Workbook
Set wbT2 = Workbooks.Add

For Each Sheet In wb1.Sheets
    Sheet.Copy after:=wb2.Sheets(wb2.Sheets.Count)
Next
End Sub

If you haven't worked something out tomorrow or If anyone else wants to help:
I'll be back tomorrow to help

 

[DataBlake]

After going over everything what you probably need to do is enter an "if not" statement on the userform code that says

If not (activeworkbook's name is equal to wb2) then me.show
else exit sub

So what that will do is if the active workbook has the same name as the copy of the workbook it will exit the sub without showing the userform.
You didn't post all of your codes so i can't write it out exactly, but you seem to have a pretty good grasp of VBA