Save as PDF & Email

[Claire Jackson]

Hi, I have a file which works perfectly by saving as a PDF and then emailing it. What I would like to do is only save part of the document as the PDF. Currently it's using the "set print area" as it's range. I have changed the range in the code, as below but it's still using the "set print area"? What am I doing wrong?

With Range("A1:C24")
Sheets("Sheet1").Range("A1:C24").Copy
Set WB = ActiveWorkbook
End With

 

[davesexcel]

You can pdf just a range
Range("A1:C5").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

 

[Claire Jackson]

Wonderful, thank you so much