Excel Macro to PDF 400 error

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