Hjælp til VBA gem udvalgte ark og send via mail
Hej Eksperter..Jeg har fået hjælp til at lave denne VBA kode, den virker super godt men udskriver kun et ark, jeg vil gerne kunne udvælge at jeg f.eks gerne vil udskrive flere faner, ikke alle men udvalgte.
Håber nogen kan hjælpe
Sub LavPDFOgSendViaEmail()
Dim DataSti As String
Dim Filnavn As String
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders
Dim OutlookPrg As Object
Dim OutlookMail As Object
Set OutlookPrg = CreateObject("Outlook.Application")
Set OutlookMail = OutlookPrg.CreateItem(0)
DataSti = objFolders("desktop") & Application.PathSeparator
Filnavn = "Timeseddel" & ".pdf"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=DataSti & Filnavn, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
On Error Resume Next
With OutlookMail
.To = "supermail@flotmail.dk"
.cc = ""
.BCC = ""
.Subject = "SUBJEKT " & Range("A2")
.Body = "TEKST " & Range("A2") & vbCrLf & vbCrLf & "Med venlig hilsen" & vbCrLf & "Mads"
.Attachments.Add (DataSti & Filnavn)
.Display
End With
On Error GoTo 0
Kill (DataSti & Filnavn)
Set OutlookMail = Nothing
Set OutlookPrg = Nothing
Set objFolders = Nothing
End Sub