How do I add a chart name to the following VBA for a Histogam?
Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$BA$4:$BA$" & LastRow) _
, ActiveSheet.Range("$BA$" & i), ActiveSheet.Range("$BB$4:$BB$" & LastRow), False, _
False, True, False
Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$BA$4:$BA$" & LastRow) _
, ActiveSheet.Range("$BA$" & i), ActiveSheet.Range("$BB$4:$BB$" & LastRow), False, _
False, True, False