With Range("I4")
.Value = .Value + 1
.SaveAs Filename:="C:\Jones\Reports\Daily & ActiveWorkbook.Name & "_" & Format(Date, "mmddyyyy") & ".xls"
Run "PrintToPDF_MultiSheetToOne_Early"
.Value = .Value - 1
End With
With Range("I4")
.Formula = "=TODAY() + 1"
ActiveWorkbook.SaveAs Filename:="C:\Jones\Reports\Daily" & ActiveWorkbook.Name & "_" & Format(Date, "mmddyyyy") & ".xls"
Run "PrintToPDF_MultiSheetToOne_Early"
.Formula = "=TODAY()"
End With