VBA with Cell Ref that includes a Date issue

[Dazzybeeguy]

I have the following that Works fine, L8 is a cell with Text, however I want it to use Cell W4 which has the formula =Lists!E2&" w/e"&" "&TEXT(O10,"ddd-dd-mmm-yyyy") The formula would return BB w/e Sun-19-Feb-2023

When I try it with W4 as the cell with the value I get Run Time Error '-2147018887 (80071779)': Document Not Saved

Any ideas how I can get the Excel file to export as a PDF with the date in the name ?

Sub SaveAsPD4()
Dim filename As String
filename = "C:\Users\dazzy_zlpocbd\OneDrive\Desktop\Diary Logs\" & Range("L8").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
filename, Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

[James006]

Hi,

In your filename, you could test to replace Range("L8").Value
by
Evaluate("=Lists!E2&"" w/e ""&TEXT(O10,""ddd-dd-mmm-yyyy"")")

 

[Alex Blakenburg]

The forward slash "/" is an illegal character in a file name.