willow1985
Well-known Member
- Joined
- Jul 24, 2019
- Messages
- 871
- Office Version
- 365
- Platform
- Windows
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.
Any help would be greatly appreciated.
Thank you
Carla
VBA Code:
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