Sub b()
Dim fileSave As Variant
Dim msg As Integer
Dim sheetcount As Long
Dim name As String
Dim actvsheet As String
Dim tempname As String
Application.ScreenUpdating = False
actvsheet = ThisWorkbook.ActiveSheet.name
Set fileSave = Application.FileDialog(msoFileDialogSaveAs)
For i = 1 To 3
Sheets("Export Invoice").Select
Sheets("Export Invoice").Copy after:=Worksheets("Export Invoice")
tempname = tempname & _
ActiveSheet.name & ","
Sheets("Packing List").Select
Sheets("Packing List").Copy after:=Worksheets("Packing List")
tempname = tempname & _
ActiveSheet.name & ","
Next i
tempname = Left(tempname, Len(tempname) - 1)
sheetcount = Sheets.Count
For i = 2 To sheetcount
If i = sheetcount Then
If ThisWorkbook.Sheets("DATA FILLER").Range("E51") = "YES" Then
name = name & _
ThisWorkbook.Sheets(i).name & ","
Else
End If
Else
name = name & _
ThisWorkbook.Sheets(i).name & ","
End If
Next i
If Len(name) > 1 Then
name = Left(name, Len(name) - 1)
Else:
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
Sheets(actvsheet).Select
Application.DisplayAlerts = True
Exit Sub
End If
Sheets(Split(name, ",")).Select
msg = MsgBox("This was easy right? These documents will be printed as PDF " & Chr(10) & Replace(name, ",", Chr(10)), vbQuestion + vbOKCancel)
If msg = vbOK Then
With fileSave
.InitialFileName = "Desktop\*.pdf"
.FilterIndex = 26
If .Show = -1 Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), _
Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Else
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
Sheets(actvsheet).Select
Application.DisplayAlerts = True
Exit Sub
End If
End With
Else
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
Sheets(actvsheet).Select
Application.DisplayAlerts = True
Exit Sub
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
Sheets(actvsheet).Select
Application.DisplayAlerts = True
End Sub