Excel Macro to PDF 400 error

[Edvinx2000]

Hi I am working on a Macro to make PDF files using formula on other tabs.
My Macro creates the first PDF and then stops with Error 400 or Error 1004.
Can you please help to get this to work.
Here is my Macro:

Sub CreateFiles()
'Make Excel and PDF directories to store each version
Dim BatchFolder As String
Dim rng As Range, cell As Range

BatchFolder = "\batch " & Format$(Now, "DD-MM-YYYY h.mm.ss AM/PM")

MkDir FolderName + BatchFolder
MkDir FolderName + BatchFolder + "\PDF"


PdfFolderName = FolderName + BatchFolder + "\PDF"


Set rng = Evaluate(Sheets("CEO Dashboard").Range("AH7").Validation.Formula1)

For Each cell In rng

Sheets("CEO Dashboard").Range("AH7").Value = cell.Value

'Save As PDF
'ThisWorkbook.Sheets("CEO Dashboard").Select

Application.DisplayAlerts = False

Sheets("CEO Dashboard").ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFolderName + "\" + CStr(Sheets("CEO Dashboard").Range("AH11").Value) + " - " + Sheets("CEO Dashboard").Range("AH11").Value + " - CEO Dashboard.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.DisplayAlerts = True

Next

End Sub

[mongoose36]

Hi Edvinx2000 most likely the problem is due to the fact that you begin a for loop using rng, but rng is a range of only one cell, "AH7".

[Edvinx2000]

Thanks for the reply however I was able to figure out the problem.
Just in case anyone else out there experiences similar error when creating PDF's you will need to make sure your PDF file name does not contain any special characters such as "/", "@"...

Removing all special characters fixed my issue.