I have the follow options selected in Excel 2010:
-Object positioning set to Don't move or size with cells -Locked -Locked Text
Sub SavePDF_Click()
Dim PDFDir As String
Dim ReportDate As Variant
ReportDate = Format(Worksheets(1).Range("C6").Value, "mmddyy")
PDFDir = "\\myserver\files\daily_reports\"
Sheets(Array("Cover_Page", "Blank_Page", "Assets", "Analytics")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
PDFDir & "daily_reports_" & ReportDate & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("Assets").Select
Worksheets("Assets").Activate
MsgBox ("PDF Saved")
End Sub