as long as the date in the cell has no spaces at the beginning then this should work:Code:chtChart.Export ThisWorkbook.Path & Application.PathSeparator & "d" & Format(CDate(Split(.Cells(1, i + 1).Value)(0)), "yymmdd") & ".PNG"
as long as the date in the cell has no spaces at the beginning then this should work:Code:chtChart.Export ThisWorkbook.Path & Application.PathSeparator & "d" & Format(CDate(Split(.Cells(1, i + 1).Value)(0)), "yymmdd") & ".PNG"
Posting Permissions
Reply With Quote
Bookmarks