Update:

The only way I could get this to function properly was to have the destination file save in the same directory as the source file. It's odd because it has been working the old way for about 2 months. This Sunday, the file started to not work properly with that code.

Regardless, here is the code I used to fix it.

Dim cht As ChartObject
Dim strPath As String
Dim strFile As String


If ThisWorkbook.Name = ("DigitalSignage.xlsm") Then

Application.DisplayAlerts = False
'ThisWorkbook.RefreshAll

ActiveWorkbook.RefreshAll

ActiveWorkbook.Worksheets("GRAPHS").Activate

strPath = ActiveWorkbook.path
strFile = "DigSign.xlsx"

For Each cht In ActiveSheet.ChartObjects

cht.Activate
ActiveChart.Export "\\pltaub2\prod$\Aub\Auto_Reports\DigitalSignage\Display\Charts\" & cht.Name & ".png"

Debug.Print cht.Name


Next cht


'ActiveWorkbook.SaveAs "\\pltaub2\prod$\Aub\Auto_Reports\DigSign.xlsx", FileFormat:=51
ActiveWorkbook.SaveAs strPath & strFile, FileFormat:=51
Application.Quit

Else
''

End If