Help with VBA Run-time error '7': Out of memory when creating PDF

[willow1985]

I have the following code, and it has worked before but today I am getting this out of memory error and I don't know how to fix it.

Sub SavePDFopen()
'
' SavePDFopen Macro
'
Dim Path As String
Dim filename As String

Path = Sheets("CI Form Open").Range("T1")
filename = Sheets("CI Form Open").Range("T2")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=Path & filename & ".pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
'
'
End Sub

Any help would be greatly appreciated.

Thank you

Carla

 

[jimrward]

The more important one to try might be the openafterpublish and check whether it creates the pdf provided it doesn’t crash of course