WithSheets("Report").ChartObjects.Add(...) .Chart.Axes(xlCategory).MinimumScale=RoundTo50(Sheets(sheetName).Range("M4")) .Chart.Axes(xlCategory).MaximumScale=RoundTo50(Sheets(sheetName).Range("M124")) .Chart.Axes(xlCategory).MajorUnit=RoundTo50((.Chart.Axes(xlCategory).MaximumScale.Chart.Axe...